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Przedmowa 


Język Turbo Pascal jest najbardziej rozpowszechnionym językiem progra- 
mowania mikrokomputerów. Został on opracowany przez firmę Borland 
International jako dialekt języka wzorcowego Pascal, ale dzięki swojej popu- 
larności sam stał się wzorcem języka programowania mikrokomputerów 
zarówno 8-, jak i 16-bitowych. 


Do najważniejszych zalet Turbo Pascala należy zaliczyć: mały rozmiar 
kompilatora, znaczną zgodność języka z Pascalem wzorcowym, bardzo szybką 
kompilację programów, scalenie kompilatora z interakcyjnym edytorem ekra- 
nowym, sygnalizowanie błędów na poziomie programu źródłowego, obszerną 
bibliotekę podprogramów i przydatne rozszerzenia ułatwiające programowa- 
nie systemowe. 


Niniejsze opracowanie zawiera szczegółową prezentację języka Turbo Pascal 
dla mikrokomputerów IBM PC. Dotyczy to jednak głównie rozdziałów po- 
święconych grafice, ponieważ pozostała część książki stosuje się również do in- 
nych mikrokomputerów, takich jak np. Amstrad/Schneider 6128, Elwro 800 Jr 
oraz wszystkich zgodnych z IBM PC. 


Jan Bielecki 


l. Wstęp 


Nazwa Turbo Pascal dotyczy interakcyjnego systemu programowania, skła- 
dającego się z kompilatora języka Turbo Pascal oraz zintegrowanego z nim 
edytora ekranowego. 


Edytor systemu Turbo Pascal jest wzorowany na powszechnie znanym 
edytorze WordStar, a interakcyjność systemu przejawia się w głównej mierze 
wygodą edycji oraz sygnalizowaniem błędów wykrytych w programach bez- 
pośrednio w obrębie tekstu źródłowego. 


Naturalne i wymagające minimalnej liczby manipulacji przechodzenie między 
edycją, kompilacją i wykonaniem programu zapewnia, że uruchamianie 
programów w systemie Turbo Pascal odbywa się prawie wyłącznie na 
poziomie źródłowym. Znaczna szybkość kompilowania programów powoduje 
natomiast, że przejście od programu źródłowego do programu wykonywalnego 
jest niemal natychmiastowe. Wydatnie skraca to cykl modyfikowania pro- 
gramu i przyśpiesza uzyskanie jego wersji końcowej. 


W celu zilustrowania zasad posługiwania się systemem Turbo Pascal zostanie 
rozpatrzony prosty program do wyznaczania objętości kuli o zadanym 
promieniu. 


program Folume; 
var 
Rad, Vol: real; 
begin 
ClrŚcr; 
GotoX Y(i10, 11); 
Write (radius='); 
Readln (Rad); 
Vol := 4/f3xPixRadxRadxRad; 
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GotoXY(10, 13); 

Witeln(colunie=", Vol); 

repeat until KeyPressed 
end. 


W programie tym występuje predefiniowana nazwa Pi reprezentująca przy- 
bliżenie liczby m oraz nazwy symboliczne Rad i Vol reprezentujące odpowiednio 
promień i objętość kuli. Wykonanie procedury ClrScr powoduje wyczyszczenie 
ekranu składającego się z 80 kolumn i 25 wierszy, a wykonanie procedury 
GotoX Y powoduje ustawienie kursora w pozycji o podanych współrzędnych. 
W przypadku wywołania GotoXY(10, 13) jest to 10 kolumna i 13 wiersz. 
Zarówno numery kolumn, jak i wierszy są liczone od I do wartości maksymal- 
nej. Wykonanie cyklu repeat until powoduje wstrzymanie wykonywania 
programu do momentu wprowadzenia dowolnego znaku z klawiatury. Znak 
ten pozostaje w buforze i może być następnie zinterpretowany przez system 
Turbo Pascal. 


W celu skompilowania i wykonania przytoczonego programu należy 
w pierwszej kolejności wywołać system Turbo Pascal. Odbywa się to za 
pomocą wywołania programu Turbo. 


Bezpośrednio po wywołaniu tego programu na ekranie monitora pojawia się 
komunikat identyfikujący system 


Turbo Pascal system 
Copyright (C)... by Borland Inc. 
Include error messages (Y/N)? 


W przytoczonym napisie jest zawarte pytanie, czy do systemu należy dołączyć 
zbiór tekstów stanowiących komunikaty. Ponieważ komunikaty te zajmują 
zaledwie 1,5 Kb pamięci, a ich występowanie znacznie ułatwia diagnostykę, 
zaleca się udzielenie odpowiedzi Y. 


W chwilę po udzieleniu odpowiedzi na ekranie monitora pojawia się menu, 
w którym wybrane litery poszczególnych słów są wyróżnione przez roz- 
jaśnienie. 

Logged drive: 

Active directory: 

Work file: 

Main file: 

Edit Compile Run Save 

Dir  Quit compiler Options 

Text: 

Free: 
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Wprowadzanie z klawiatury dowolnej dyrektywy mającej postać jednej 
z wyróżnionych liter (bez naciskania klawisza Enter) powoduje stworzenie 
warunków do interakcyjnej zmiany parametrów systemu. 


Dyrektywa L 

Wprowadzenie z klawiatury litery L umożliwia zmianę domniemanej stacji 
dyskowej, którą bezpośrednio po inicjacji jest stacja domniemana w systemie 
operacyjnym. Jeśli jest np. pożądane wyróżnienie stacji B, to bezpośrednio po 
zapytaniu 


New drive: 


należy wprowadzić z klawiatury parę znaków B: zakończoną znakiem Enter. 


Dyrektywa A 
Wprowadzenie z klawiatury litery A umożliwia zmianę domniemanego kata- 
logu stacji dyskowej, którym bezpośrednio po inicjacji systemu jest katalogy. 
Jeśli jest np. pożądane wyróżnienie katalogusJBIJBTB, to bezpośrednio po 
zapytaniu 

New directory: 


należy wprowadzić z klawiatury tekstyJBAJBTB zakończony znakiem Enter. 
Niezwłocznie po wykonaniu tej czynności nowa nazwa katalogu pojawi się 
w menu systemu. 


Dyrektywa W 

W prowadzenie z klawiatury dyrektywy W umożliwia określenie nazwy zbioru 
roboczego zawierającego program źródłowy. Zbiór ten może już istnieć, ale 
również może być zbiorem, który ma być dopiero utworzony. Bezpośrednio po 
zapytaniu 


Work file name: 


należy wprowadzić tekst określający nazwę zbioru, zakończony znakiem Enter. 
Dla rozpatrywanego programu przykładowego mógłby to być np. tekst 
TB01.PAS. 


W systemie CP/M i DOS nazwa zbioru może być określona jako dwu- 
członowa. Pierwszy człon składa się z nie więcej niż 8 znaków, a drugi 
— nazywany rozszerzeniem — z nie więcej niż 4 znaków, z których pierwszy 
jest znakiem . (kropka). Jeśli w odpowiedzi na rozpatrywane zapytanie o nazwę 
zbioru ograniczyć się do pierwszego członu nazwy, to zostanie domniemana 
kropka oraz rozszerzenie .PAS. Aby uniknąć domniemania rozszerzenia, 
można ograniczyć się do podania pierwszego członu nazwy oraz kropki. 


Należy nadmienić, że jeśli ustalenie nowej nazwy zbioru roboczego następuje 
w sytuacji, gdy nie zapamiętano na dysku poprzedniego zbioru roboczego, to 
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system wyprowadza komunikat zapytujący, czy zbiór poprzedni powinien 
zastać zapamiętany. Odpowiedzią na takie zapytanie jest zwykle Y (yes) albo 
N (no). 


Dyrektywa M 

Wprowadzenie z klawiatury dyrektywy M umożliwia określenie nazwy zbioru 
poddawanego kompilacji. Jeśli nazwa taka nie zostanie ustalona, to kompilacji 
podlega aktualny zbiór roboczy. 


Zasady określania nazwy zbioru poddawanego kompilacji, nazywanego dalej 
zbiorem głównym, są takie same jak dla zbioru roboczego. Użycie zbioru 
głównego jest wygodne wówczas, gdy program źródłowy zawiera dyrektywy 
włączające w miejscu ich wystąpienia zawartość innych zbiorów. W takim 
przypadku, stwierdzenie błędu kompilacji w jednym ze zbiorów włączonych, 
czyni go zbiorem roboczym, nadającym się do natychmiastowej edycji. Po jej 
wykonaniu można w prosty sposób ponowić kompilację programu zawartego 
w zbiorze głównym. 


Dyrektywa E 

Wprowadzenie z klawiatury dyrektywy E powoduje wywołanie edytora 
i podjęcie edycji zbioru roboczego. Jeśli do tego momentu nie została 
określona nazwa zbioru roboczego, to system wyprowadza komunikat jak 
podczas wprowadzenia dyrektywy W, a edycję podejmuje dopiero po ziden- 
tyfikowaniu zbioru. 


Dyrektywa C 

Wprowadzenie z klawiatury dyrektywy C powoduje wykonanie kompilacji 
zbioru głównego. Jeśli do tego momentu nie określono nazwy tego zbioru, to 
podejmowana jest kompilacja zbioru roboczego. Jeśli określono nazwę zbioru 
głównego, a poddawano edycji zbiór roboczy, to rozpoczęcie kompilacji 
zostanie poprzedzone zapamiętaniem zbioru roboczego w pamięci zewnętrznej. 


W następstwie wykonania kompilacji powstaje program rezydujący w pamięci 
operacyjnej albo program umieszczony w zbiorze z rozszerzeniem .COM albo 
.CHN. Decyzja o sposobie przeprowadzenia kompilacji jest podejmowana na 
podstawie opcji kompilacji ustawianych za pomocą dyrektywy O. Przez 
domniemanie przyjmuje się, że program wynikowy ma być umieszczony 
w pamięci operacyjnej. 


Jeśli podczas wykonywania kompilacji zostanie wprowadzony z klawiatury 
dowolny znak, to kompilacja zostanie wstrzymana. Bezpośrednio po udzie- 
leniu odpowiedzi na zapytanie 


*** Abort compilation (Y/N)? 


nastąpi zaniechanie albo kontynuowanie kompilacji. 
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Dyrektywa R 

Wprowadzenie z klawiatury dyrektywy R powoduje wykonanie właśnie 
skompilowanego programu rezydującego w pamięci operacyjnej. Jeśli za 
pomocą dyrektywy O zostanie ustawiona opcja Com-file, to wykonanie będzie 
dotyczyć tego programu znajdującego się w pamięci zewnętrznej. Jeśli przed 
użyciem dyrektywy R nie posłużono się dyrektywą C, to podjęcie wykony- 
wania programu zostanie automatycznie poprzedzone jego kompilacją. 


Dyrektywa S 

Wprowadzenie z klawiatury dyrektywy S powoduje zapamiętanie zbioru 
roboczego w pamięci zewnętrznej. Poprzednia wersja tego zbioru zostanie 
przemianowana w taki sposób, że otrzyma rozszerzenie .BAK. 


Dyrektywa D 
Wprowadzenie z klawiatury dyrektywy D umożliwia wyprowadzenie nazw 
zbiorów znajdujących się w katalogu. Bezpośrednio po zapytaniu 


Dir mask: 


należy podać nazwę zbioru albo nazwę rodziny zbiorów, np. B: J+B? 
(« oznacza dowolny dopuszczalny ciąg znaków, a ? — dowolny dopuszczalny 
znak). Jeśli udzielając odpowiedzi na zapytanie nie podano nazwy stacji 
dyskowej albo nazwy katalogu, to zostaną one domniemane zgodnie z menu. 


Dyrektywa Q 

Wprowadzenie z klawiatury dyrektywy Q powoduje zakończenie współpracy 
z systemem Turbo Pascal i wywołanie systemu operacyjnego. Jeśli przed 
użyciem dyrektywy Q poddawano edycji zbiór roboczy, to wywołanie systemu 
operacyjnego zostanie poprzedzone zapytaniem, czy zbioru tego nie należy 
zapamiętać w pamięci zewnętrznej. 


Dyrektywa O 

Wprowadzenie z klawiatury dyrektywy O umożliwia określenie opcji kom- 
pilacji. Przez domniemanie przyjmuje się, że program wykonywalny zostanie 
umieszczony w pamięci operacyjnej. Jeśli po użyciu dyrektywy O zostanie 
użyta poddyrektywa C, to program ten będzie umieszczony w pamięci 
zewnętrznej jako zbiór z rozszerzeniem .COM. Przywrócenie pierwotnego 
domniemania można uzyskać za pomocą poddyrektywy M. 


Jeśli zostanie użyta poddyrektywa H, to program wykonywalny zostanie 
umieszczony w pamięci zewnętrznej jako zbiór o nazwie z rozszerzeniem 
.CHN. Program zawarty w takim zbiorze różni się tym od programu 
zawartego w zbiorze o nazwie z rozszerzeniem .COM, że nie zawiera biblioteki 
podprogramów standardowych i musi być wywoływany z innego programu za 
pomocą specjalnej procedury Chain. 
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Posłużenie się poddyrektywą P umożliwia określenie parametrów programu 
wykonywalnego umieszczonego w pamięci operacyjnej. Zostaną one przeka- 
zane programowi dokładnie w taki sposób, w jaki są przekazywane parametry 
programom wywoływanym z pamięci zewnętrznej. 


Użycie poddyrektywy F umożliwia zlokalizowanie błędu wykonywania pro- 
gramu umieszczonego w zbiorze o nazwie z rozszerzeniem .COM albo .CHN. 
W odróżnieniu od programów wykonywalnych umieszczonych w pamięci 
operacyjnej, których błędy wykonywania są sygnalizowane przez wskazanie 
miejsca błędu w tekście żródłowym, błędy wykonywania programów umiesz- 
czonych w pamięci zewnętrznej są sygnalizowane w sposób zakodowany, przez 
podanie numeru błędu i stanu licznika instrukcji. Jeśli po zapytaniu wywo- 
łanym użyciem poddyrektywy F zostanie podany ten właśnie stan licznika 
instrukcji, to automatycznie zostanie wskazane miejsce w programie źród- 
łowym, gdzie wystąpił błąd wykonywania. 


Ostatnią poddyrektywą dyrektywy O jest poddyrektywa Q. Jej wykonanie 
kończy wykonywanie dyrektywy O i powoduje przywrócenie głównego menu. 


Jak wynika z przytoczonego opisu, posługiwanie się dyrektywami i pod- 
dyrektywami systemu Turbo Pascal jest w miarę nieskomplikowane. Równie 
proste jest wprowadzanie i poprawianie programu źródłowego, następujące po 
użyciu dyrektywy E ałbo automatycznie, po złokalizowaniu błędu podczas 
kompilowania programu. 


Zasady posługiwania się edytorem systemu Turbo Pascal wynikają z jego 
podobieństwa do procesora tekstów WordStar, na którym jest on wzorowany. 
Odsyłając do dodatku wszystkich zainteresowanych pełnymi możliwościami 
tego edytora, wystarczy ograniczyć się do przytoczenia minimalnego zestawu 
dyrektyw umożliwiających obróbkę programów źródłowych. 


Na wstępie należy zauważyć, że jeśli ktoś nie popełnia błędów, to bezpośrednio 
po wywołaniu edytora za pomocą dyrektywy E może wprowadzić tekst 
programu jako ciąg wierszy zakończonych znakami Enter, a następnie 
posłużyć się dyrektywą *KD kończącą edycję i przywracającą główne menu 
systemu. 


Dyrektywa KD składa się z liter K i D i podobnie jak pozostałe dyrektywy 
edytora systemu Turbo Pascal wymaga posłużenia się klawiszem Ctrl. Klawisz 
ten powinien być wciśnięty podczas wprowadzania liter K i D. Będzie to 
oznaczane skrótowo za pomocą opisu Ctrl-K-D albo *KD. 


W obrębie tekstu wyświetlanego na ekranie monitora jeden ze znaków jest 
wyróżniony za pomocą kursora. Operacje na tekście są zawsze wykonywane 
w odniesieniu do tego znaku, zawierającego go słowa albo wiersza. 
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Przesunięcie kursora o jedną pozycję w lewo, w prawo, w górę lub w dół 
odbywa się za pomocą dyrektyw Ctrl-S, Ctrl-D, Ctrl-E lub Ctrl-X. Klawisze 
S,D, E i X tych dyrektyw tworzą romb 


E 
SD 
X 


a jak łatwo zapamiętać, dyrektywa Ctrl-E przesuwa kursor o jeden wiersz 
w górę, dyrektywa Ctrl-X przesuwa kursor o jeden wiersz w dół, dyrektywa 
Ctrl-S przesuwa kursor o jedną pozycję w lewo, a dyrektywa Ctrl-D przesuwa 
kursor o jedną pozycję w prawo. Dzięki takiemu rozwiązaniu o funkcji 
dyrektywy decyduje nie mnemonika nazwy jej klawisza, lecz położenie klawi- 
sza w przytoczonym układzie czterokierunkowym. 


Usuwanie znaków tekstu odbywa się za pomocą klawisza — (Backspace). 
Każdorazowe naciśnięcie tego klawisza powoduje usunięcie znaku znajdu- 
jącego się z lewej strony znaku wyróżnionego przez kursor. Wstawianie 
nowych znaków między słowami lub w obrębie słów tekstu nie wymaga 
specjalnych zabiegów. Każdy z takich znaków jest wstawiany bezpośrednio 
przed znakiem wyróżnionym przez kursor, a pozostałe znaki wiersza zostają 
przesunięte o jedną pozycję w prawo. Usuwanie całych wierszy odbywa się za 
pomocą dyrektywy Ctrl-Y, usuwanie słów — za pomocą dyrektywy Ctrl-T, 
a wstawianie nowych wierszy — za pomocą dyrektywy Ctrl-N. Wiele innych 
dyrektyw i możliwości edytora opisano w dodatku D. 


Podsumowując to, co przedstawiono w niniejszym rozdziale, można podać, że 
utworzenie i uaktywnienie programu przedstawionego na wstępie wymaga 
wykonania następujących czynności: 


e Wywołania systemu Turbo Pascal 


TURBO 
e Dołączenia do kompilatora zbioru komunikatów 
Y 
e Określenia nazwy zbioru roboczego 
W 
e Zainicjowania wprowadzenia programu źródłowego 
E 
e Zakonńczenia edycji 
"KD 
e Polecenia wykonania kompilacji 
|© 
e Polecenia wykonania programu 
R 


2 — Turbo Pascal... 


18 1. Wstęp 


Po wykonaniu tych czynności można wywołać system operacyjny, posługując 
się w tym celu dyrektywą Q. 


W przypadku gdyby było pożądane przechowanie programu wykonywalnego 
jako zbioru z rozszerzeniem .COM, należałoby przed wykonaniem kompilacji 
posłużyć się dyrektywą O, a następnie poddyrektywami C i Q. Po wykonaniu 
kompilacji i powrocie do systemu operacyjnego wspomniany program mógłby 
być wykonywany już bez udziału systemu Turbo Pascal. 


2. Jednostki leksykalne, odstępy, 
komentarze 


Przystępując do szczegółowego omówienia języka programowania Turbo 
Pascal, należy zacząć od jego jednostek leksykalnych, którymi — jak w każdym 
języku programowania — są słowa kluczowe, identyfikatory, literały i ograni- 
czniki. Spacje, znaki tabulacji, znaki przejścia do nowego wiersza i komentarze 
nie stanowią jednostek leksykalnych. Każdy ciąg takich znaków i komentarzy 
jest traktowany tak jak pojedyncza spacja i będzie krótko nazywany odstępem. 
Użycie odstępu jest niezbędne jedynie wtedy, kiedy w programie źródłowym 
sąsiadują ze sobą identyfikatory albo słowa kluczowe. 


Zgodnie z przytoczoną klasyfikacją każdy program zapisany w języku Turbo 
Pascal składa się z jednostek leksykalnych i odstępów. Wyodrębnienie tych 
obiektów odbywa się podczas analizowania programu, dokonywanego 
w naturalnym porządku, tj. od lewej do prawej i od góry do dołu. Za jednostkę 
leksykalną jest uznawany w takim przypadku najdłuższy ciąg znaków nie 
zawierający odstępów, który może uchodzić za jednostkę leksykalną. 


Jednostki leksykalne i komentarze są tworzone ze znaków i dwuznaków 
podstawowych, do których zalicza się 


e małe i duże litery alfabetu angielskiego, wraz ze znakiem podkreślenia 
— a, b, C, d, € | J. 9, h, i, J; k, l, m, 


N, O, p, q, r, S, £(, u, bv, W, X, y, Z, 
A, B, C, D, E, F, G,H, I, J, K, L, M, 
N, O, P, Q, R. S$, TI U, KW X, Y, Z 


e cyfry dziesiętne 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9 
e znaki specjalne 
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e dwuznaki 
przypisania: := 
relacje: <> <= >= 
zakresy: 
nawiasy: (+ +) (. .) 


(nawiasy z gwiazdkami pełnią rolę nawiasów klamrowych, a nawiasy 
z kropkami pełnią rolę nawiasów kwadratowych). 


Litery duże 1 małe nie są odróżniane. Powoduje to m.in., że identyfikatory takie 
jak np. filename i FileName są uznawane za identyczne. 


Słowa kluczowe 


Słowem kluczowym jest spójny ciąg liter tworzący jedno z wymienionych ni- 


żej słów 
absolute external nil shl 
and file not shr 
array for of string 
begin forward or then 
case function overlay to 
const goto packed type 
div if procedure until 
do in program var 
downto inline record while 
else label repeat with 
end mod set xor 
Przykład 
Najkrótszy program w języku Turbo Pascal. 
begin 
end. 
e Program składa się z dwóch słów kluczowych i ogranicznika. 
e Wykonanie tego programu nie wywołuje żadnych skutków. m 
Identyfikatory 


Identyfikatorem jest ciąg literowo-cyfrowy, rozpoczynający się od litery, taki 
który nie jest słowem kluczowym. „Literą” użytą w identyfikatorze może być 
dowolna mała albo duża litera alfabetu angielskiego oraz znak podkreślenia. 
Liczba znaków identyfikatora nie może przekroczyć 127. Wszystkie jego znaki 
są istotne. 
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Wiele identyfikatorów ma predefiniowane znaczenie i służy do oznaczania 
literałów, funkcji i procedur. Do tej grupy należą następujące identyfikatory: 


Abs ConQOutPtr GraphWindow MKkDir 
Addr ConstPtr Green Move 
Append Copy Halt MsDos 
Arc Cos Heading New 

Arc Tan CrtExit HeapPtr NormVideo 
Assign Crtlnit Hi NoSound 
Aux Cyan Hide Turtle NoWrap 
AuxInPtr DarkGray HiRes Odd 
AuxOutPtr DelLine HiResColor Ord 

Back Delay Home OutPut 
Bdos Delete Input OvrDrive 
Bios Dispose InsLine OvrPath 
BiosHL Draw Insert Palette 
Black Eof Int ParamCount 
Blink Eoln Integer ParamStr 
BlockRead Erase IOresult Pattern 
BlockWrite Execute Kbd PenDown 
Blue Exit KeyPressed PenUp 
Boolean Exp Length Pi 

Brown False LightBlue Plot 
BufLen FilePos LightCyan Port 

BW40 FileSize LightGray Pos 

BW80 FillChar LightGreen Pred 

Byte FillPattern LightRed Ptr 

C40 FillScreen LightMagenta PutPic 
C80 FillShape Ln Random 
Chain Flush Lo Randomize 
Char Forwd LongFilePosition Read 
ChDir Frac LongFileSize Readln 
Chr FreeMem LongSeek Real 

Circle GetDir LowVideo Red 

Close GetDotColor Lst Release 
ClrEol GetMem LstOutPtr Rename 
CirSer GetPic Magenta Reset 
ClearScreen GotoXY Mark Rewrite 
Color Table GraphBackground  MaxAuail RmDir 
Con GraphColorMode -Maxlnt Round 
Concat Graphics Mem Seek 
ConInPtr GraphMode MemAvail SetHeading 
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SetPenColor Str TurnLejft WhereX 
SetPosition Succ TurnRight WhereY 
Show Turtle Swap TurtleDelay White 
Sin Text TurtleT' here Window 
SizeOf TextBackground TurtleWindow Wrap 
SeekEof TextColor UpCase Write 
SeekEoln TextMode Usr Writeln 
Sound Ti'm UsrInPtr X Cor 
Sqr True UsrOutPtr YCor 
Sągrt Trunc Val Yellow 
Truncate 


Jeśli w programie zostanie zadeklarowany identyfikator występujący na 
przytoczonej liście. to w zasięgu tej deklaracji zostanie przesłonięte pierwotne 
znaczenie danego identyfikatora. 


Przykład 
Przesłonięcie znaczenia identyfikatora 


program jb; 


const 

false = true; 
begin 

Writeln( false) 
end. 


e Wykonanie programu powoduje wyprowadzenie napisu TRUE. 

e Gdyby z programu usunięto tekst między pierwszym średnikiem a słowem 
begin (wyłącznie), to wykonanie programu spowodowałoby wyprowadzenie 
napisu FALSE. m 


Literały 


Literałem jest napis reprezentujący stałą — obiekt, który podczas wykony- 
wania programu nie ulega zmianie. 

Literały dzielą się na arytmetyczne, łańcuchowe i logiczne. Literały arytmetyczne 
dzielą się na całkowite i rzeczywiste. Literały te będą nazywane liczbami. 


Literały całkowite 


Podstawowy literał całkowity składa się z ciągu cyfr dziesiętnych, który może 
być poprzedzony znakiem + (plus) lub — (minus). Wartość liczbowa literału 
całkowitego musi się mieścić w przedziale domkniętym [—32768 ; 32767]. 
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W języku Turbo Pascal zapewniono możliwość przedstawiania literałów 
całkowitych i bajtowych jako liczb szesnastkowych. W takim przypadku literał 
składa się ze znaku $ (dolar), po którym następują cyfry szesnastkowe. Przed 
znakiem $ może występować znak + (plus) albo — (minus). 


Przykład 
Kilka poprawnych i niepoprawnych literałów całkowitych 


Literały całkowite: 23 
—23 
002 
$ABC 
—$2B 


Napisy, które nie są literałami całkowitymi: 
2B6 — znak B nie jest cyfrą dziesiętną 
$3G — znak G nie jest cyfrą szesnastkową 
2.3 — znak . nie jest cyfrą m 


Literały rzeczywiste 


Literał rzeczywisty składa się z następujących po sobie: części całkowitej, 
kropki, części ułamkowej, małej albo dużej litery E oraz wykładnika. Część 
całkowita, ułamkowa i wykładnik składają się z ciągów cyfr dziesiętnych, 
a część całkowitą i cyfry wykładnika może poprzedzać znak + (plus) albo 
— (minus). Część ułamkową wraz z kropką, albo wykładnik wraz z literą E, 
można pominąć. 


Przykład 
Kilka poprawnych i niepoprawnych literałów rzeczywistych 


Literały rzeczywiste: —2.3 
2.5e2 
4.0E—3 
2E3 


Napisy, które nie są literałami rzeczywistymi: 


3e2.0 — kropka w wykładniku 
„25 — brak części całkowitej 
2.3D2 — błędny wykładnik im 


Literały łańcuchowe 


Literały łańcuchowe reprezentują ciągi znaków. Jeśli literał łańcuchowy rep- 
rezentuje jeden znak, to jest nazywany literałem znakowym. W ogólnym 
przypadku literał łańcuchowy składa się z sekwencji znaków zawartych między 
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parą apostrofów, znaków sterujących i znaków wyrażonych dziesiętnie 
i szesnastkowo. W sekwencji zawartej między parą apostrofów mogą wystę- 
pować dowolne znaki widoczne, wraz ze spacją, a znak ” (apostrof) jest 
reprezentowany przez parę sąsiadujących apostrofów. Znaki sterujące są 
przedstawiane za pomocą pary znaków, z których pierwszy jest znakiem 
A (caret), a drugi jest znakiem widocznym. Reprezentacja tak przedstawionego 
znaku sterującego jest identyczna z reprezentacją znaku uzyskanego przez 
jednoczesne naciśnięcie klawisza Ctrl i danego znaku widocznego. Znaki 
wyrażone dziesiętnie składają się ze znaku ++ (hash), po którym następuje 
dziesiętny kod znaku, a znaki wyrażone szesnastkowo składają się z nas- 
tępujących bezpośrednio po sobie: znaku ++ (hash), znaku $ (dolar) i szesnast- 
kowego kodu znaku. 


Przykład 
Kilka poprawnych i niepoprawnych literałów łańcuchowych 
Literały łańcuchowe: jb (dwa znaki) 


> (jeden znak) 

*G (jeden znak) 

4:65 (jeden znak) 

4:$41 (jeden znak) 

AGjb' (trzy znaki) 

sk (dwa znaki spacji) 

AG'G*G'hello + 13++10jan' (13 znaków) 

Napisy, które nie są literałami łańcuchowymi: 


22) 


— brak apostrofu 
+:256 — kod większy niż 255 
4Ł$4G — G nie jest cyfrą szesnastkową m 


Literały logiczne 
Literały logiczne mają postać napisów true i false. Pierwszy z nich reprezentuje 
daną logiczną „prawda”, a drugi — daną logiczną „fałsz”. 
Przykład 
Kilka poprawnych i niepoprawnych literałów logicznych 
Literały logiczne: false 
False 
True 
Napisy, które nie są literałami logicznymi: 


prawda — błędny napis 
fałsz — błędny napis U 
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Komentarze 


Komentarzem jest napis rozpoczynający się od nawiasu klamrowego otwie- 
rającego, zakończony najbliższym nawiasem klamrowym zamykającym. Rolę 
nawiasów klamrowych: £ (otwierającego) i | (zamykającego) mogą pełnić 
dwuznaki (* i *). Komentarze ograniczone znakami ( i | mogą być zagnież- 
dżone w komentarzach ograniczonych dwuznakami (* 1 +), a komentarze 
ograniczone dwuznakami (* i *) mogą być zagnieżdżone w komentarzach 
ograniczonych znakami $ i |. 


Jeśli bezpośrednio po znaku albo dwuznak rozpoczynającym komentarz 
występuje znak $ (dolar), to komentarz taki zostaje uznany za dyrektywę 
nompilatora. Dyrektywa taka nie może znajdować się w komentarzu za- 
gniczdżonym. 
Przykład 
Kilka poprawnych i niepoprawnych komentarzy i dyrektyw kompilatora 
Komentarze: (* data *) 
( data ) 
(+ out file) *) 
Dyrektywy: (=+$i include.set *) 
($v,b + ) 


Napisy, które nie są komentarzami: 
(+ inside) — niepoprawne ograniczenie komentarza 
(finside)) — niepoprawne zagnieżdżenie 
Napisy, które nie są dyrektywami kompilatora: 
15$v—) — spacja między / i $ 
($ v—)— spacja między $ i v— m 


3. Typy standardowe 


Pojęcie typu jest związane z ustalonym zbiorem danych. W tym sensie zmienna 
jest pewnego typu, jeśli można jej przypisywać dane należące do zbioru 
związanego z tym typem. W języku Turbo Pascal wymaga się jawnego 
określenia typu każdej ze zmiennych programu. 


Związanie nazwy zmiennej z wybranym typem odbywa się w deklaracji 
zmiennej. Typy zmiennych, sklasyfikowane jak na rys. 3.1, dzielą się na proste 
i złożone. Typami prostymi są typy porządkowe, rzeczywiste, łańcuchowe 1 


Typy porządkowe 


Typy proste Typ rzeczywisty 


Typy wskazujące 


Typy 


Typy łańcuchowe 
Typy tablicowe 


Typy złożone Typy rekordowe 
Typy mnogościowe 


Typy plikowe 


Rys. 3.1 Klasyfikacja typów 
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wskazujące, a typami złożonymi — typy tablicowe, rekordowe, mnogościowe 
i plikowe. Wśród wymienionych typów można wyróżnić typy standardowe: 
integer, byte, char, boolean i real. Pierwsze cztery będą również nazywane 
typami porządkowymi. Mają one tę właściwość, że każdy z nich jest związany ze 
zbiorem przeliczalnym. 


Typy standardowe są predefiniowane, tzn. nie wymagają definiowania. Zasię- 
giem ich niejawnych definicji jest cały program, z wykluczeniem tych jego 
fragmentów, w których wprowadzono jawne deklaracje przesłaniające. 


Typ całkowity (integer) 


Dana typu integer jest elementem podzbioru liczb całkowitych. Wartości tych 
liczb należą do przedziału domkniętego [—32768 ; 32767]. Każda z danych 
typu integer jest reprezentowana w 2 bajtach pamięci. 


Typ bajtowy (byte) 


Dana typu byte jest elementem podzbioru liczb całkowitych. Wartości danych 
typu byte należą do przedziału domkniętego [0 ; 255]. W prawie każdym 
miejscu programu, w którym występuje odwołanie do danej bajtowej może 
wystąpić odwołanie do danej typu integer i odwrotnie. Ważny wyjątek od tej 
zasady dotyczy skojarzeń przez wskazanie parametrów i argumentów procedur 
i funkcji. W tym przypadku wymaga się pełnej zgodności typów danych. Każda 
z danych typu byte jest reprezentowana w 1 bajcie pamięci. 


Typ znakowy (char) 


Dana typu char jest elementem zbioru znaków kodu ASCII. Każda z danych 
typu char jest reprezentowana w 1 bajcie pamięci. 


Typ logiczny (boolean) 


Dana typu boolean jest elementem dwuelementowego zbioru danych logicz- 
nych. Do oznaczenia tych danych służą standardowe identyfikatory true 
i false. Każda z danych typu boolean jest reprezentowana w 1 bajcie pamięci. 
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Typ rzeczywisty (real) 


Dana typu real jest elementem zbioru liczb rzeczywistych. Do zbioru tego 
należy liczba 0 oraz liczby dodatnie i ujemne, których wartości bezwzględne 
należą do przedziału [10738; 10*3]. Każda z danych typu real jest re- 
prezentowana w 6 bajtach pamięci, z dokładnością do ok. 11 cyfr znaczących. 


4. Programy 


Program napisany w języku Turbo Pascal składa się z nagłówka programu, 
bloku i znaku . (kropka). W nagłówku jest określona nazwa programu oraz ujęty 
w nawiasy okrągłe wykaz identyfikatorów, opisujący sposób komunikowania 
się programu z otoczeniem. Blok składa się z części deklaracyjnej i wyko- 
nawczej. Zarówno nagłówek, jak i część deklaracyjna bloku mogą być 
pominięte. 


Nagłówek programu 


Jeśli program zaczyna się od nagłówka, to występuje w nim przynajmniej 
nazwa programu. Po nazwie tej może wystąpić — ujęta w nawiasy okrągłe 
— lista parametrów programu. Lista ta wyszczególnia identyfikatory plików, 
za pośrednictwem których program komunikuje się z otoczeniem. Liście tej nie 
jest nadawana żadna interpretacja i z tego względu może być (wraz z otaczają- 
cymi ją nawiasami) pominięta. 


Składnia 
nagłówek-programu: 
program nazwa-programu ( lista-nazw-plików ); 
nazwa-programu: 
identyfikator 
nazwa-pliku: 
identyfikator 


Przykłady 
program Volunie; 
program Lister(Qutput); 
program Conpier(Input,Out put); [m 
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Blok 


Blok składa się z części deklaracyjnej i części wykonawczej. W części dekla- 
racyjnej znajdują się definicje typów, definicje nazw literałów, definicje 
i deklaracje podprogramów, a także deklaracje etykiet i zmiennych. Wszystkie 
te deklaracje i definicje mogą być podane w dowolnym porządku, a posz- 
czególne grupy deklaracji i definicji mogą się przeplatać. Należy rozumieć to 
w taki sposób, że np. po definicjach typów mogą następować deklaracje 
zmiennych, a po nich ponownie definicje typów i znowu deklaracje zmiennych. 
Część wykonawcza skłąda się z instrukcji złożonej zawierającej instrukcje 
programu. 


Składnia 
blok: 
część-deklaracyjna część-wykonawcza 
część-deklaracyjna: 
wykaz-deklaracji-i-definicji 
część-wykonawcza: 
instrukcja-złożona 
deklaracje-i-definicje: 
deklaracje-etykiet 
definicje-nazw-literałów 
definicje-typów 
deklaracje-zmiennych 
definicje-i-deklaracje-podprogramów 
inicjacje 


Deklaracje etykiet 


Każda instrukcja czynna programu może być opatrzona etykietą umożli- 
wiającą odwołanie się do niej w instrukcji goto. Etykieta składa się 
z identyfikatora albo z ciągu cyfr. Bezpośrednio po etykiecie następuje 
znak : (dwukropek) oddzielający ją od innej etykiety albo instrukcji. Zanim 
etykieta zostanie użyta w programie, jej nazwa musi być zadeklarowana. 
Deklaracje-etykiet składają się ze słowa kluczowego label, po którym następuje 
lista napisów identycznych z nazwami etykiet. 


Składnia 
deklaracje-etykiet: 
label lista-etykiet ; 
Przykłady 


Jabel 10, abort, quit; 
label 99999; m 
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Definicje nazw literałów 


W celu zwiększenia czytelności programu pożądane jest niekiedy zastąpienie 
literałów odpowiednio dobranymi identyfikatorami reprezentującymi te lite- 
rały. W takich przypadkach każde wystąpienie identyfikatora jest równoważne 
wystąpieniu związanego z nim literału. W języku Turbo Pascal związanie 
identyfikatorów z literałami odbywa się podczas interpretowania definicji nazw 
literałów. Każda z definicji nazw literałów składa się ze słowa kluczowego 
const, po którym następuje sekwencja przypisań. Każde z przypisań składa się 
z identyfikatora, bezpośrednio po którym następuje znak = (równa Się), 
wyrażenie stałe oraz znak ; (średnik). Wyrażeniem stalym może być liczba, literał 
łańcuchowy, nazwa literału albo nazwa literału poprzedzona znakiem — (mi- 
nus). Predefiniowanymi nazwami literałów są 


Pi — typu real, reprezentujące literał 3.1415926536 
MaxlInt — typu integer, reprezentujące literał 32767 


Składnia 

definicje-nazw-literałów: 
const sekwencja-przypisań 

przypisanie: 
identyfikator = liczba ; 
identyfikator = literał-lańcuchowy ; 
identyfikator = literal-logiczny ; 
identyfikator = nazwa-literału ; 
identyfikator = znak nazwa-literału ; 


Przykłady 
const e = 2.718282; 
g = 9.81; 
const TwoChar = 2; 
Two = 2; 
Minus2 = — Two; 
const FirstName = janek'; m 


Definicje typów 


Podczas deklarowania zmiennych programu następuje określenie ich typu. Typ 
zmiennej może należeć do zbioru predefiniowanych typów standardowych, 
takich jak np. boolean lub real, ale może także zostać zdefiniowany odrębnie 
w definicji typu. W ogólnym przypadku definicje-typów składają się ze słowa 
kluczowego type, po którym następuje sekwencja definicji typów. Każda 
z definicji typu składa się z identyfikatora typu definiowanego, znaku = (rów- 
na się), opisu typu i znaku ; (Średnik). 
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Składnia 
definicje-typów: 
type sekwencja-definicji-typu 
definicja-typu: 
typ-definiowany = opis-typu; 
typ-definiowany: 
identyfikator 
opis-typu: 
opis-typu-standardowego 
opis-typu-definiowanego 
opis-typu-standardowego: 
identyfikator-typu-standardowego 
opis-typu-definiowanego: 
opis-typu-wyliczeniowego 
opis-typu-okrojonego 
opis-typu-łańcuchowego 
opis-typu-tablicowego 
opis-typu-rekordowego 
opis-typu-mnogościowego 
opis-typu-plikowego 
opis-typu-wskazującego 


Przykłady 
type 

Number = integer; 

Color = (Red,Green,Blue,Orange); 

RGB = (Red..Blue); 

Name = string[ 20]; 

Matrix = array[1..5,1..5] of real; 

Person = record 
FirstName : string[6]; 
LastName : Name; 
Salary : real 

end; 

Digits = set of 0..9; 

DataFile = file of Person; 

Ref = Matrix; U 


Deklaracje zmiennych 


Każda zmienna programu, zarówno prosta jak i agregatowa, musi być 
zadeklarowana przed jej użyciem. Deklaracje zmiennych składają się ze słowa 
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kluczowego var, po którym następuje wykaz deklaracji. Elementem wykazu 
deklaracji jest sekwencja napisów składająca się z listy identyfikatorów, znaku : 
(dwukropek), opisu typu i znaku ; (średnik). Zinterpretowanie każdej z de- 
klaracji powoduje utworzenie zmiennych podanego typu. 


Składnia 
deklaracje zmiennych: 
var wykaz-deklaracji 
deklaracja: 
lista-identyfikatorów : opis-typu; 


Przykłady 
Var 
Length, Area, Volume : real: 
Count : integer: 
Buffer : array[0..255] of byte; 
Rejected : boolean; m 


Zakresem deklaracji zmiennej jest blok, w którym zmienna ta została zadekla- 
rowana. Jeśli blok ten zawiera inne bloki, w których występują deklaracje 
zmiennych oznaczone takim samym identyfikatorem, to zasięg deklaracji jest 
mniejszy niż zakres i nie obejmuje bloków wewnętrznych, w których wystąpiły 
deklaracje przesłaniające. Zakres deklaracji zmiennej rozpoczyna się nie od 
początku bloku, lecz od miejsca zadeklarowania jej identyfikatora. 


Przykład 
Zakres i zasięg deklaracji 


program Tricky; l l 

var l l 
Toggle : (false"..true); l l 
false” : integer; 1 2 2 

begin i 2 2 
Jalse := S$; 1 2 2 
Writeln( false) 1 2 2 

end. 


e Zasięgiem predefiniowanego identyfikatora false jest jego zakres pomniej- 
szony o zakres jawnie zadeklarowanego identyfikatora false typu integer. 

e Zakres i zasięg zadeklarowanego jawnie identyfikatora false jest taki sam. 
e Ponieważ wywołanie procedury Writeln występuje w zasięgu jawnie za- 
deklarowanego identyfikatora false, wykonanie programu powoduje wypro- 
wadzenie liczby 5. m 


3 — Turbo Pascal... 
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Deklaracje i definicje podprogramów 


Podprogramy dzielą się na funkcje i procedury. Definicja podprogramu określa 
czynności, jakie zostaną wykonane bezpośrednio po wywołaniu podprogramu. 


W przypadku funkcji określa również typ rezultatu funkcji udostępnionego 
w miejscu jej wywołania. 


Użycie deklaracji podprogramu jest niezbędne jedynie wtedy, kiedy nie jest 
możliwe takie uporządkowanie definicji podprogramów, aby odwołania do 
tych podprogramów występowały w zasięgu ich definicji. 


Przykład Wzajemne wywołania procedur 
program jb; 


procedure second; forward; 
procedure first; 
begin 


second 
end; 
procedure second; 
begin 


first 
end; 
begin 
end. 


e Ponieważ w definicji procedury first 

procedure first; 

begin 

second 

end; 
występuje wywołanie procedury second, a w definicji procedury second wy- 
stępuje wywołanie procedury first, konieczne było użycie deklaracji procedury 
second o postaci 


procedure second; forward; 
e W odróżnieniu od definicji deklaracja służy jedynie zaprezentowaniu iden- 


tyfikatora podprogramu, a jeśli podprogram ma parametry, to także jego 
parametrów. m 


5. Wyrażenia 


Wyrażenia są napisami określającymi czynności, jakie mają być wykonane 
w celu utworzenia danej. Wykonanie tych czynności będzie nazywane opraco- 
waniem wyrażenia. Ponieważ rezultatem opracowania wyrażenia jest dana, więc 
samo wyrażenie można uważać za napis reprezentujący daną. W niniejszym 
rozdziale zostaną opisane zasady opracowywania wyrażeń, których elementy 
składowe reprezentują dane typu integer, real, boolean i char. Opisy wyrażeń 
zawierających odwołania do danych typów definiowanych zostaną przedsta- 
wione podczas omawiania tych typów. 


Operatory 


Operatory dzielą się na jednoargumentowe i dwuargumentowe. Innym kryterium 
ich podziału jest priorytet. W kolejności malejącego priorytetu ogół ope- 
ratorów można podzielić na 

a) Jednoargumentowy operator zmiany znaku 


b) Jednoargumentowy operator negacji 


not 


c) Dwuargumentowe operatory czynnikowe 
x / div mod and shl shr 
d) Dwuargumentowe operatory składnikowe 


+ — or xor 


e) Dwuargumentowe operatory relacyjne 
= <> < > <= >= in 


36 5. Wyrażenia 


Jeśli pewnego podwyrażenia dotyczą dwa operatory o równym priorytecie, to 
stosowne operacje są wykonywane od lewej do prawej. Podwyrażenia ujęte 
w nawiasy okrągłe są opracowywane w pierwszej kolejności. Z tego względu 
nawiasy okrągłe mogą być traktowane jako operator jednoargumentowy 
o najwyższym priorytecie. 


Jeśli argumentami operacji czynnikowych i składnikowych są podwyrażenia 
reprezentujące dane typu integer lub real, to rezultat operacji jest typu integer 
tylko wtedy, kiedy oba argumenty są typu integer, a operacją nie jest dzielenie. 
W pozostałych przypadkach rezultat operacji jest typu real. 


Przykład 
Wyznaczanie danej reprezentowanej przez wyrażenie 
2+ 3/4 
e Ponieważ priorytet dzielenia jest wyższy niż priorytet dodawania, przy- 
toczone wyrażenie jest traktowane tak jak wyrażenie 


2+ (3/4) 
a nie jak wyrażenie 

(2+3)/4 
e Rezultatem opracowania wyrażenia 3/4 jest dana typu real o wartości 
równej — w przybliżeniu — wartości literału 0.75. 
e Przytoczone wyrażenie reprezentuje daną typu real o wartości bliskiej 
wartości danej reprezentowanej przez literał 2.75. m 


Operator zmiany znaku 


Wykonanie jednoargumentowej operacji — (minus) powoduje zmianę znaku 
danej na przeciwny. Jeśli dana ma wartość O, to rezultatem operacji jest także 
dana o wartości 0. Argumentami operacji — (minus) mogą być tylko dane typu 
real i integer. 


Przykłady 
Wyrażenie Rezultat 
—(—4) 4 
—3/2 —1.5 


Operator negacji 


Wykonanie jednoargumentowej operacji not może dotyczyć jedynie danych 
typu boolean 1 integer. W pierwszym przypadku dana o wartości false zostanie 
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przekształcona w daną o wartości true i odwrotnie. W drugim, każdy bit 
reprezentacji danej zostanie zmieniony na przeciwny. 


Przykłady 
Wyrażenie Rezultat 
not false true 
not true false 
not O —|] 
not $FFFF 0 
not —2 1 
not —32768 32767 O 


Operatory czynnikowe 


Dwuargumentowe operatory * (mnożenia) i / (dzielenia) mogą dotyczyć 
zarówno danych typu real, jak i danych typu integer. Dwuargumentowy 
operator and może dotyczyć zarówno danych typu boolean, jak i danych typu 
integer. Pozostałe operatory czynnikowe mogą dotyczyć jedynie danych typu 
integer. Wymagania te zebrano w tabl. 5.1, w której przytoczono także typ 
rezultatu operacji. 


Tablica 5.1. Operatory czynnikowe 


Operator Rezultat 


real real real 
real integer real 
integer real real 
integer integer integer 
/ real real real 
real integer real 
integer real real 
integer integer real 
div integer integer integer 
mod integer integer integer 
and integer integer integer 
boolean boolean boolean 
shl integer integer integer 


integer 


integer 


integer 


Sposób wykonywania operacji « i / nie wymaga wyjaśnień. Należy jedynie 
pamiętać, że rezultatem dzielenia jest zawsze dana typu real. 


38 5. Wyrażenia 


Przykłady 
Wyrażenie 
25+40 
25+40.0 
0.25+40.0 
24/3 
24.0/3.0 


8.0 [m 


Rezultatem operacji div jest dana typu integer, o tak dobranej wartości, że 
stanowi ona część całkowitą rezultatu podzielenia pierwszego argumentu przez 
drugi. Operacja mod jest natomiast zdefiniowana jako 


a mod b =a—((a div b)+b) 


Przykłady 
Wyrażenie 
25 div 7 
—25 div 7 
25 mod 7 
—25 mod 7 


Rezultat 
3 

—3 

4 


4 c 


Rezultatem operacji and na danych typu boolean jest koniunkcja tych 
argumentów wyznaczona jak następuje: 


argument a 
false 
true 


false 


true 


argument b a and b 
false false 
false false 
true false 
true true 


Rezultatem operacji and na danych typu integer jest dana typu integer, której 
reprezentacja stanowi iloczyn logiczny wyznaczony równolegle na wszystkich 
odpowiadających sobie parach bitów argumentów. Iloczyn logiczny dla pary 
bitów ma wartość 1 tylko wtedy, kiedy oba bity mają wartość 1. W przeciwnym 


razie ma on wartość 0. 


Przykłady 
Wyrażenie 
false and true 
2 and 2 
12 and 22 
—5 and O 


Rezultat 
false 

2 

4 


0 m 


Dwuargumentowe operacje shl i shr mogą dotyczyć jedynie danych typu 
integer. Rezultatem każdej z tych operacji jest również dana typu integer. Dana 
ta ma taką reprezentację, jaka powstaje z reprezentacji pierwszego argumentu 
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po przesunięciu go w lewo (shl) albo w prawo (shr), o taką liczbę pozycji, jaką 
określa wartość drugiego argumentu. Przyjmuje się, że przesuwanie ma 
charakter logiczny. Oznacza to, że podczas przesuwania bit znaku nie ulega 
powieleniu, a zwolnione pozycje są zapełniane bitami 0. 


Przykłady 
Wyrażenie Rezultat 
2 shl 1 4 
2 shl 3 16 
3 shr 1 | 


—3 shr | 32766 U 


Operatury suładnikowe 


Dwuargumentowe operatory + (dodawania) i — (odejmowania) mogą do- 
tyczyć zarówno danych typu real, jak i danych typu integer. Pozostałe 
operatory typu dodawania mogą dotyczyć par argumentów identycznych 
typów: integer albo boolean. Wymagania te zebrano w tabl. 5.2, w której 
przytoczono także typ rezultatu operacji. 


Tablica 5.2. Operatory składnikowe 


Rezultat 


Operator 


real real real 
real integer real 
integer real real 
integer integer integer 
— real real rcal 
real integer rcal 
integer real real 
integer integer integer 
or integer integer integer 
boolean boolean boolean 
XOT integer integer integer 
boolean boolean boolean 


Sposób wykonywania operacji + i — nie wymaga wyjaśnień. Należy jedynie 
pamiętać, że rezultat operacji jest typu integer tylko wtedy, kiedy oba 
argumenty są tego typu. W przeciwnym razie rezultat operacji jest typu real. 


Przykłady 
Wyrażenie Rezultat 
20 +40 60 
20.0 + 40 60.0 


60.0 — 40.0 20.0 u 
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Rezultatem operacji or na danych typu boolean jest alternatywa tych ar- 
gumentów, wyznaczona jak następuje: 


argument a argument b a_or b 
false false false 
true false true 
false true true 
true true true 


Rezultatem operacji or na danych typu integer jest dana typu integer, której 
reprezentacja stanowi sumę logiczną wyznaczoną równolegle na wszystkich 
odpowiadających sobie parach bitów argumentów. Suma logiczna dla pary 
bitów ma wartość O tylko wtedy, kiedy oba bity mają wartość O. W przeciwnym 
razie ma wartość 1. 


Przykłady 
Wyrażenie Rezultat 
false or true true 
20r 3 3 
12 or 22 30 
58000 or 1 — 32767 [m 


Rezultatem operacji xor na danych typu boolean jest różnica symetryczna tych 
argumentów, wyznaczona jak następuje: 


argument a argument b a_xor b 
Jalse Jalse false 
true Jalse true 
false true true 
true true false 


Rezultatem operacji xor na danych typu integer jest dana typu integer, której 
reprezentacja stanowi sumę modulo 2 wyznaczoną równolegle na wszystkich 
odpowiadających sobie parach bitów argumentów. Suma modulo 2 ma 
wartość O tylko wtedy, kiedy oba bity są identyczne. W przeciwnym razie ma 
wartość |. 


Przykłady 
Wyrażenie Rezultat 
true xor true false 
$8000 xor 2 —32166 
12 xor 22 26 


—] xor —1 0 D 
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Relacje 


Operatory relacji mogą dotyczyć dowolnych danych typu integer, boolean, real 
i char, a także danych łańcuchowych, wskazujących i mnogościowych. Rezul- 
tatem operacji jest zawsze dana typu boolean, o wartości false albo true. Jeśli 
pewien argument relacji jest typu boolean albo char, to drugi musi być takiego 
samego typu. W przypadku argumentów arytmetycznych nie wymaga się 
identyczności typów. Umożliwia to np. porównywanie argumentów typu real 
z argumentami typu integer. 


Operatorami relacji są: = (równe), <> (nie równe), > (większe), < (mniejsze), 
= (większe lub równe), <= (mniejsze lub równe). 


Przykłady 
Wyrażenie Rezultat 
20 = 20 true 
30.0 > 20 true 
J <'B false 
false <> true true m 


Wywołania funkcji 


Wywołanie funkcji składa się z identyfikatora funkcji, bezpośrednio po którym 
występuje ujęta w nawiasy okrągłe lista argumentów wywołania. Wywołanie 
funkcji bezparametrowej składa się tylko z identyfikatora funkcji. 


Przykłady 
Eof (Input) 
KeyPressed [m 


6. Instrukcje 


Instrukcja programu stanowi opis czynności, które będą wykonane podczas 
realizowania algorytmu. W Turbo Pascalu istnieją dwa rodzaje instrukcji: 
proste 1 strukturalne. Instrukcjami prostymi są: instrukcja przypisania, in- 
strukcja wywołania procedury, instrukcja przejścia i instrukcja pusta. In- 
strukcjami strukturalnymi są: instrukcja grupująca, instrukcja warunkowa, 
instrukcja wyboru, trzy instrukcje iteracyjne oraz instrukcja wiążąca. Każda 
para instrukcji programu jest oddzielona znakiem ; (średnik). 


Instrukcja przypisania 


Instrukcja przypisania składa się z następujących po sobie: napisu identy- 
fikującego zmienną, dwuznaku przypisania i wyrażenia. W obrębie definicji 
funkcji musi wystąpić co najmniej jedna instrukcja przypisania, w której 
napisem identyfikującym zmienną jest identyfikator funkcji. 


Wykonanie instrukcji przypisania powoduje wyznaczenie danej reprezento- 
wanej przez wyrażenie i przypisanie tej danej zmiennej identyfikowanej przez 
napis występujący po lewej stronie dwuznaku przypisania. W przypadku 
omówionego wyżej przypisania występującego w obrębie definicji funkcji 
następuje określenie rezultatu funkcji, tj. danej udostępnianej w miejscu 
wywołania funkcji. 


Wymaga się, aby typ wyrażenia oraz typ zmiennej były zgodne w sensie 
przypisania. Zgodność ta jest zapewniona wtedy, kiedy zmienna i wyrażenie są 
tego samego typu, jak również wówczas, gdy zmienna jest typu real, a wyraże- 
nie jest typu integer. Należy nadmienić, że nie jest dozwolone przypisywanie 
plików, ale jest dozwolone przypisywanie takich danych strukturalnych jak 
tablice, rekordy i mnogości. 
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Składnia 
instrukcja-przypisania: 
zmienna := wyrażenie 
Przykłady 
ii=i+2 


x1:=(—b+sqgrt(bxb—4*axc))/(2*a) 
arr[2,3]:=m=n 
fun : = false m 


Instrukcja procedury 


Instrukcja procedury składa się z identyfikatora procedury, bezpośrednio po 
którym następuje ujęta w nawiasy okrągłe lista argumentów wywołania. 
Instrukcja procedury bezparametrowej składa się tylko z identyfikatora 
procedury. 


Wykonanie instrukcji procedury powoduje wykonanie czynności wyszczegól- 
nionych w definicji tej procedury. Zanim to nastąpi, odbywa się identyfikacja 
zmiennych stanowiących argumenty wywołania procedury i wyznaczenie 
wartości wyrażeń występujących w wywołaniu. 


Składnia 
instrukcja-procedury: 
nazwa-procedury ( lista-argumentów ) 
nazwa-procedury 
nazwa-procedury: 
identyfikator 


Przykłady 
Rewrite(OutFile) 
Move(source,target) 
Exit m 


Instrukcja przejścia 


Instrukcja przejścia składa się ze słowa kluczowego goto, bezpośrednio po 
którym następuje nazwa etykiety opatrującej instrukcję. 

Wykonanie instrukcji przejścia powoduje przejście do wykonywania ciągu 
instrukcji rozpoczynającego się od instrukcji opatrzonej podaną etykietą. 
Wymaga się, aby instrukcja przejścia powołująca się na etykietę znajdowała się 
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w zasięgu deklaracji tej etykiety. Zabrania się, aby wykonanie instrukcji 
przejścia prowadziło do wnętrza instrukcji strukturalnej albo podprogramu. 
Zabrania się także, aby wykonanie takiej instrukcji powodowało przedwczesne 
zakończenie wykonywania podprogramu. 


Składnia 
instrukcja-przejścia: 
goto etykieta 
etykieta: 
identyfikator 
ciąg-cyfr 
Przykłady 
goto 345 
goto finish [im 


Instrukcja pusta 


Instrukcja pusta jest jedyną instrukcją, której zapisanie nie wymaga użycia 
jednostek leksykalnych. Występuje ona w tych kontekstach, w których jest 
wymagane użycie instrukcji, ale chce się uniknąć wykonania jakiejkolwiek 
akcji. 

Wykonanie instrukcji pustej nie wywołuje żadnych skutków. 


Składnia 
instrukcja-pusta: 
puste 
puste: 


Przykłady 
(Miejsce wystąpienia instrukcji pustej oznaczono komentarzem zawierającym 
wykrzyknik) 

begin ( ! | end 

while false do ( ! ); 

repeat ( ! ) until true 

begin (! ) ;f! ) end 

case true of false (!); true: £ ! ) end m 


Instrukcja grupująca 


Instrukcja grupująca składa się ze słowa kluczowego begin, bezpośrednio po 
którym następuje sekwencja instrukcji i słowo kluczowe end. Instrukcja 
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grupująca jest używana wszędzie tam, gdzie składnia języka wymaga użycia 
jednej instrukcji, a niezbędne jest wykonanie ich sekwencji. 


Wykonanie instrukcji grupującej powoduje wykonanie zawartej w niej sek- 
wencji instrukcji. 


Składnia 
instrukcja-grupująca: 
begin sekwencja-instrukcji end 


Przykłady 
begin 
i:=2; j: 
end 


I 
NW 


begin 
Writeln(OutFile); 
Close(OutFile) 
end m 


Instrukcja warunkowa 


Instrukcja warunkowa składa się ze słowa kluczowego if, bezpośrednio po 
którym następują kolejno: wyrażenie logiczne, słowo kluczowe then i instruk- 
cja. Po instrukcji może występować słowo kluczowe else i ponownie instrukcja. 


Wykonanie instrukcji warunkowej składa się z wyznaczenia wartości wyra- 
żenia, a następnie, jeśli rezultat jest daną o wartości true, wykonania instrukcji 
następującej po słowie kluczowym then. Jeśli rezultat jest daną o wartości false, 
a instrukcja warunkowa nie zawiera słowa kluczowego else, to jej wykonanie 
uznaje się za zakończone. Jeśli zawiera takie słowo, to jest wykonywana 
instrukcja występująca po tym słowie. 


Jeśli instrukcja występująca po słowie kluczowym if jest instrukcją warunkową, 
to musi mieć postać ze słowem kluczowym else. 


Składnia 
instrukcja-warunkowa: 
if wyrażenie-logiczne then instrukcja 
if wyrażenie-logiczne then instrukcja 
else instrukcja 


Przykłady 
if a = b then a:=5 else b:=5 
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if a =b then begin 


a:= 6; 
:=6 
end 
if a =b then 
if a=$5 then 
b:=2 
else 
a:=3 
else 
a:=13 


Instrukcja wyboru 


Instrukcja wyboru składa się ze słowa kluczowego case, bezpośrednio po 
którym występuje wyrażenie selekcyjne, słowo kluczowe of, sekwencja in- 


strukcji wyboru poprzedzonych etykietami wyboru, a po niej słowo kluczowe 
end. 


Lista etykiet wyboru składa się z literałów, a listę oddziela od instrukcji znak : 
(dwukropek). Każdy z literałów listy musi być tego samego typu jak wyrażenie 
selekcyjne. Jeśli pewna podlista listy literałów stanowi ciąg kolejnych elemen- 
tów typu porządkowego, to może być zastąpiona konstrukcją 
pierwszy..ostatni 

wyszczególniającą pierwszy i ostatni element tego ciągu. Zamiast etykiet 
wyboru poprzedzających ostatnią funkcję sekwencji instrukcji wyboru może 
być użyte słowo kluczowe else, a po nim dowolny wykaz instrukcji. Po takiej 
„etykiecie” nie stawia się dwukropka. 


Składnia 
instrukcja-wyboru: 
case wyrażenie-selekcyjne of 
wykaz-instrukcji-wyboru end 


Wykonanie instrukcji wyboru składa się z wyznaczenia wartości wyrażenia 
selekcyjnego, a następnie wykonania tej instrukcji należącej do wykazu 
instrukcji wyboru, która jest poprzedzona etykietą wyboru o wartości równej 
wartości wyrażenia selekcyjnego. Jeśli takiej instrukcji nie ma, to są wyko- 
nywane instrukcje poprzedzone etykietą wyboru ze słowem kluczowym else, 
a jeśli i takiej nie ma, to jest wykonywana instrukcja pusta. 
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Przykłady 
case a =b of 
false: i:= 5; 
true: j:=2 
end 


case Operator of 
"+: Result:= Result + 1; 
*—' Result:= Result —1 
else goto fin 

end 


case Year of 
1945..1955 : Writeln(hard work'); 
1956..1969 : Writeln( hopeSs'); 
1970..1979 : Writeln( prosperity); 
1980..1981 : Writeln( euphoria') 
else Writeln(no comment) 
end [m 


Instrukcje iteracyjne 


Instrukcje iteracyjne służą do organizowania cykli programowych. Występują 
one w trzech odmianach, jako tzw. instrukcje for, while i repeat. 


Instrukcja for 


Instrukcja for składa się ze słowa kluczowego for, bezpośrednio po którym 
następuje identyfikator zmiennej sterującej cyklu, symbol przypisania, wyra- 
żenie określające wartość początkową zmiennej sterującej, słowo kluczowe to 
albo downto, wyrażenie określające wartość końcową zmiennej sterującej, 
słowo kluczowe do oraz dowolna instrukcja. 

Zmienna sterująca cyklu oraz oba wyrażenia muszą być tego samego typu 
porządkowego. 


Składnia 
instrukcja- for; 
for zmienna := wyrażenie, te wyrażenie, do instrukcja 
for zmienna := wyrażenie, downto wyrażenie, do instrukcja 


Wykonanie instrukcji for powoduje wykonywanie zawartej w niej instrukcji dla 
tych wszystkich wartości zmiennej sterującej, które są zawarte w przedziale 
domkniętym wyznaczonym przez wartości wyrażenia, 1 wyrażenia,,. 
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Jeśli w instrukcji for wystąpiło słowo kluczowe to, to zmienna sterująca 
przybiera wartości od najmniejszej do największej. Jeśli natomiast wystąpiło 
słowo kluczowe downto, to przybiera ona wartości od największej do naj- 
mniejszej. Jeśli w pierwszym z tych dwóch przypadków jest prawdziwa relacja 
wyrażenie, > wyrażenie, 
albo gdy w drugim jest prawdziwa relacja 
wyrażenie, < wyrażenie, 
to cykl wyznaczony przez instrukcję for nie jest wykonywany w ogóle. W takim 


przypadku wykonanie instrukcji for ogranicza się do wyznaczenia wartości 
obu wymienionych wyrażeń. 


W pozostałych przypadkach cykl jest wykonywany co najmniej jednokrotnie, 
a po jego zakończeniu zmienna sterująca cyklu ma wartość wyrażenia,. 
Pozostaje nadmienić, że wyznaczanie wartości omawianych wyrażeń jest 
jednokrotne, a jawne przypisywanie danych zmiennej sterującej cyklu jest 
zabronione. 
Przykłady 

for i:= 2 to 8 do Witeln(i) 


for j:=8 downto 2 do Witeln( j) 
for toggle:= false to true do 


for letter:= "DT to 'n' do 
arr[toggle,letter]:= 2 im 


Instrukcja while 


Instrukcja while składa się ze słowa kluczowego while, bezpośrednio po którym 
następuje wyrażenie typu boolean, słowo kluczowe do oraz dowolna instrukcja. 
Składnia 
instrukcja-while: 
while wyrażenie do instrukcja 


Wykonanie instrukcji while przebiega według poniższego algorytmu 


1. Wyznaczana jest wartość wyrażenia. 

2. Jeśli wartością tą jest false, to wykonanie instrukcji uznaje się za zakoń- 
czone. 

3. Jeśli wartością tą jest true, to jest wykonywana instrukcja następująca po 


słowie kluczowym do, a po tym następuje powtórzenie opisanych czynności od 
początku. 
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Przykłady 
while i <> O do begin 
ii=i—l; 
Writeln(i) 
end 
while Flag do Fun(Flag) (m) 


Instrukcja repeat 


Instrukcja repeat składa się ze słowa kluczowego repeat, bezpośrednio po 
którym następują: ciąg dowolnych instrukcji, słowo kluczowe until i wyrażenie 
typu boolean. 


Składnia 


instrukcja-repeat: 
repeat instrukcje until wyrażenie 


Wykonanie instrukcji repeat przebiega według poniższego algorytmu 


l. Wykonywane są instrukcje następujące po słowie kluczowym repeat. 

2. Wyznaczana jest wartość wyrażenia występującego po słowie kluczowym 
until. 

3. Jeśli wartością tą jest true, to wykonanie instrukcji uznaje się za zakończone. 
4. Jeśli wartością tą jest false, to następuje powtórzenie opisanych czynności 
od początku. 


Przykłady 
repeat 
Writeln(i); 
ii=i—l 
until i = O; 


repeat until KeyPressed m 


4 — Turbo Pascal... 


7. Typy porządkowe 


Podstawowymi typami danych w Turbo Pascalu są typy porządkowe. Każdy 
z typów porządkowych ma tę właściwość, że definiujący go zbiór jest 
przeliczalny. Należy odnotować, że typ real, mimo iż jest typem prostym, nie 
jest typem porządkowym. To właśnie jest przyczyną, dla której wyrażenie 
selekcyjne instrukcji wyboru, etykiety instrukcji wyboru oraz zmienne sterujące 
1 wyrażenia występujące w instrukcji for nie mogą być typu real. 


Typy wyliczeniowe 


Typy wyliczeniowe stanowią ważną odmianę typów porządkowych. Z każdym 
z nich jest związany zbiór o niewielkiej liczbie elementów, na których nie 
wykonuje się operacji arytmetycznych. Poszczególne elementy tych zbiorów są 
oznaczane unikalnymi identyfikatorami, a ich uporządkowanie wynika z kolej- 
ności wystąpienia tych identyfikatorów w opisie typu wyliczeniowego. 


Opis typu wyliczeniowego składa się z listy identyfikatorów elementów tego 
typu, ujętej w nawiasy okrągłe. Każdy z takich identyfikatorów pełni rolę 
literału danego typu. Kolejność wystąpienia identyfikatorów na liście jest 
istotna. 


Składnia 
opis-typu-wyliczeniowego: 
( lista-identyfikatorów ) 


Przykłady 
type 
Day = (Mon, Tiue,Wed,T hu,Fri,Sat,Sun); 
Color = (Heart,Diamond,Spade,Club); 
RGB = (Red,Green,Blue); 
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e Dane typu Day są identyfikowane przez trzyliterowe nazwy symboliczne 
oznaczające dni tygodnia. 

e Dane typu Color są identyfikowane przez nazwy symboliczne Heart, Dia- 
mond, Spade i Club. 

e Dane typu RGB są identyfikowane przez nazwy symboliczne Red, Green, 
1 Blue. [m 


W zasięgu opisu typu wyliczeniowego nie jest dozwolone użycie innego opisu 
typu wyliczeniowego, powołującego się na literały występujące w pierwszym 
z tych opisów. 


Przykład 
type 
Day = (Mon, Tie, Wed, T'hu,Fri,Sat,Sun); 
WeekEnd = (Sat,Sun); 


e Przytoczony zestaw definicji typu jest niepoprawny, ponieważ przecięcie list 
literałów typów Day i WeekEnd nie jest puste. m 


Ponieważ typy wyliczeniowe są związane ze zbiorami przeliczalnymi, każdemu 
elementowi takiego zbioru można przypisać liczbę nieujemną, określającą 
miejsce elementu na liście identyfikatorów typu wyliczeniowego. W tym sensie 
dla definicji 


type 
Direction = (North,South,East, West) 
można przypisać identyfikatorowi North liczbę 0, identyfikatorowi South 
liczbę 1, identyfikatorowi East liczbę 2 i identyfikatorowi West liczbę 3. Dane 
o wartości tych liczb można uzyskać, posługując się predefiniowaną funkcją 
ord. Argumentem tej funkcji jest wyrażenie reprezentujące daną typu wyli- 
czeniowego, a rezultatem nieujemna dana typu integer, której wartość określa 
liczony od 0 numer pozycji danej w zawierającym ją zbiorze uporządkowanym. 


Dwiema innymi funkcjami, które mogą dotyczyć danych typu wyliczeniowego 
są pred i succ. Argumentem funkcji pred może być dowolne wyrażenie typu 
porządkowego, reprezentujące daną zbioru uporządkowanego. Rezultatem tej 
funkcji jest ta dana tego zbioru, która bezpośrednio poprzedza daną re- 
prezentowaną przez argument. Zabrania się, aby argument funkcji pred 
reprezentował pierwszą daną zbioru, jako że ten jego element nie ma 


poprzednika. 


Analogiczną do pred jest funkcja 'succ. Jej argumentem może także być 
dowolne wyrażenie typu wyliczeniowego, reprezentujące daną zbioru upo- 
rządkowanego. Rezultatem funkcji succ jest ta dana tego zbioru, która 
bezpośrednio następuje po danej reprezentowanej przez argument. Zabrania 
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się, aby argument funkcji succ reprezentował ostatnią daną zbioru, jako że ten 
jego element nie ma następnika. 


Argumentami funkcji ord, pred i succ mogą być także wyrażenia reprezentujące 
dane typu integer i byte. W takim przypadku przyjmuje się, że jeśli użycie 
funkcji jest poprawne, to obowiązują następujące tożsamości 

ord(n) =n 

pred(n)=n — 1 

succn)j=n + 1 


Przykłady 
W zasięgu definicji predefiniowanego typu boolean oraz zdefiniowanego jawnie 
typu Color 


type 
Color = (Heart,Diamond,Spade,Club); 


jest prawdziwe następujące zestawienie: 


Wyrażenie Rezultat 
ord ( false) 0 

pred (true) false 

ord (Club) 3 


succ (Diamonq) Spade 


Typy okrojone 


Typy okrojone stanowią drugą, po typach wyliczeniowych, odmianę typów 
porządkowych. Z każdym z nich jest związany zbiór tych elementów wybra- 
nego zbioru uporządkowanego, których liczby porządkowe uzyskane za 
pomocą funkcji ord tworzą ciąg arytmetyczny o różnicy 1. Typ okrojony 
zachowuje wszystkie właściwości swego typu bazowego, z tym tylko wyjąt- 
kiem, że dane typu okrojonego muszą należeć do podzbioru stanowiącego 
okrojenie typu bazowego. 


Opis typu okrojonego składa się z literału stanowiącego ograniczenie dolne 
zakresu typu okrojonego, symbolu .. (para kropek) oraz literału stanowiącego 
ograniczenie górne zakresu. Wymaga się, aby zakres wyznaczony przez 
wymienione tu literały nie był pusty. 


Składnia 
opis-typu-okrojonego: 
ograniczenie-dolne .. ograniczenie-górne 
ograniczenie: 
literał 
nazwa-literału 
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Przykłady 
type 
Quadrant = 0..90; 
Upper="A.Z'; 
Logical = false..true; 
Colour = (Red,Blue,Green, Yellow,Orange); 
Hue = Blue..Yellow; 


o Elementy zbioru danych typu Quadrant są reprezentowane przez liczby typu 
integer z przedziału od O do 90 włącznie. 

o Elementy zbioru danych typu Upper są reprezentowane przez literały typu 
char z przedziału od "A do 'Z. 

o Elementy zbioru danych typu Logical są reprezentowane przez literały false 
j true, oba typu boolean. 

o Elementy zbioru danych typu Hue są reprezentowane przez literały wyli- 
czeniowe Blue, Green i Yellow, wszystkie typu Colour. (m 


Pozostaje nadmienić, że predefiniowany typ byte jest typem okrojonym typu 
integer, tj. że obowiązuje dla niego niejawna definicja 
type 
byte = 0..255; 


W odniesieniu do danych typów okrojonych mogą być także stosowane 
funkcje ord, pred i succ. Wyznaczanie rezultatów tych funkcji odbywa się 
wówczas w typie bazowym. 


Przykłady 
W zasięgu definicji typu Hue 


type 
Colour = (Red,Blue,Green, Yellow,Orange); 
Hue = Blue..Yellow; 


jest prawdziwe następujące zestawienie: 


Wyrażenie Rezultat 

ord(Blue) || 

succ(Yellow) Orange 

pred(Yellow) Green m 


Należy zdecydowanie podkreślić, że posługiwanie się typami wyliczeniowymi 
i okrojonymi zwiększa czytelność programów, a ponadto ułatwia ich urucha- 
mianie, jako że umożliwia automatyczne wykonywanie badań poprawności 
zakresu wartości danych. Nie bez znaczenia jest także fakt, że posługiwanie się 
danymi wymienionych typów prowadzi do oszczędności pamięci. Wynika to 
stąd, iż jeśli liczba elementów zbioru bazowego związanego z typem danej nie 
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przekracza 255, to Turbo Pascal reprezentuje daną w zaledwie jednym bajcie 
pamięci. Równie oszczędna reprezentacja jest przyjmowana także w od- 
niesieniu do typów okrojonych z typem bazowym integer, jeśli oba ogranicze- 
nia zakresu mieszczą się w przedziale domkniętym [0 ; 255]. 


Konwersje typów 


W Języku Turbo Pascal rozwinięto koncepcję funkcji ord, dokonującej 
konwersji danej dowolnego typu porządkowego w daną typu integer. Wpro- 
wadzono mianowicie rodzinę operatorów jednoargumentowych, o nazwach 
identycznych z nazwami typów porządkowych, umożliwiających wykonywanie 
konwersji danych między dowolnymi typami porządkowymi. 

Operator konwersji ma postać opr(arg), gdzie opr jest identyfikatorem typu 
porządkowego, arg zaś jest dowolnym wyrażeniem porządkowym. Rezultatem 
takiej operacji jest dana typu opr, tak dobrana, że prawdziwa jest relacja 
ord(a) = ord(opr(a)). 

Przykłady 

W zasięgu definicji predefiniowanych typów porządkowych oraz zdefinio- 
wanego jawnie typu Color 


type 
Color = (Heart,Diamond,Spade,Club); 


prawdziwe jest następujące zestawienie: 


Wyrażenie Rezultat 

integer (Club) 3 

Color(2) Spade 

char(65) A 

integer(' A') 65 

boolean(Heart) false 

byte(true) l m 


Kontrola poprawności zakresu 


Jedną z właściwości kompilatora języka Turbo Pascal jest możliwość takiego 
skompilowania programu źródłowego, aby podczas jego wykonywania były 
przeprowadzane kontrole poprawności zakresu danych skalarnych. Ponieważ 
kontrole takie spowalniają wykonywanie programu, są wstępnie wyłączone 
i mogą być włączane za pomocą dyrektywy /$R+). W tych zakresach 
programu źródłowego. w których kontrole są zbędne, można je wyłączyć, 
posługując się dyrektywą £$R — |. 
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Przykład 
Włączanie i wyłączanie kontroli zakresów danych 


program Check; 


type 

Figure = (Square,Circle,Diamond, Triangle); 
var 

Shape : Figure; 
begin 


Shape : = Circle; 
Shape := Figure(4); 


($R+) 

Shape : = succ( Triangle); 

($R—-; 

Shape := pred(Square) 
end. 


e Kontrola poprawności zakresu jest włączona jedynie na czas wykonywania 
instrukcji przypisania zawartej między dyrektywami kompilacji. 

e Wykonanie programu w podanej postaci spowoduje zasygnalizowanie błędu 
przekroczenia zakresu danych. Stanie się to podczas wyznaczania rezultatu 
funkcji succ. 

e Gdyby z programu usunąć dyrektywy kompilacji, to zostałby on wykonany 
bez sygnalizowania błędów. [m 


8. Typy łańcuchowe 


Każdy z typów łańcuchowych jest typem złożonym. Podczas definiowania typu 
łańcuchowego jest określana maksymalna liczba znaków, z których może 
składać się dana łańcuchowa tego typu. Z każdym typem łańcuchowym jest 
związany zbiór ciągów znaków. Należy do niego pusty ciąg znaków oraz ciągi 
o długości nie przekraczającej maksymalnej liczby znaków. 


Opis typu łańcuchowego składa się ze słowa kluczowego string, bezpośrednio po 
którym następuje zawarta w nawiasach kwadratowych, maksymalna liczba 
znaków łańcucha danego typu. Liczba ta może być wyrażona za pomocą 


literału typu integer albo za pomocą równoważnej takiemu literałowi nazwy 
literału. 


Składnia 
opis-typu-lańcuchowego: 
string [rozmiar ] 
rozmiar: 
literał 
nazwa-literału 


Przykłady 
type 
Cities = string [20]; 
Names = string [12]; U 


Każda z danych typu łańcuchowego zajmuje o jeden więcej bajtów pamięci niż 
wynosi maksymalna liczba znaków łańcucha danego typu. W tym dodat- 
kowym bajcie jest przechowywany bieżący rozmiar łańcucha. Z tej informacji 
wynika, że maksymalny rozmiar łańcucha nie może przekroczyć 255 znaków. 
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Złączenia łańcuchów 


Złączenie pary łańcuchów w jeden łańcuch może być zrealizowane za pomocą 
operatora konkatenacji. Operator ten jest zapisywany za pomocą znaku 
+ (plus) i może dotyczyć pary wyrażeń łańcuchowych dowolnych typów. 
Złączenie pary łańcuchów jest łańcuchem składającym się z wszystkich znaków 
pierwszego łańcucha i następujących po nich wszystkich znaków drugiego 
łańcucha. Wymaga się, aby rozmiar łańcucha, który jest rezultatem złączenia, 
nie przekroczył 255 znaków. 


Przykłady 

Wyrażenie Rezultat 

jan' + ewa *janewa' 

'5+.+ 4 5.4 

[++ b jb 
(w ostatnim przykładzie wystąpił literał łańcuchowy reprezentujący pusty ciąg 
znaków). [B 
Relacje 


Dowolne pary łańcuchów mogą być porównywane za pomocą operatorów 
relacji. Operatorami relacji są: = (równe), <> (nie równe), < (mniejsze), 
> (większe), <= (mniejsze lub równe), >= (większe lub równe). Priorytet 
każdego z operatorów relacji jest niższy niż priorytet operatora złączenia. 
Umożliwia to konstruowanie wyrażeń takich jak np. jan = j+'an' bez 
konieczności posługiwania się nawiasami. 


Dwa łańcuchy są równe tylko wtedy, gdy są takiej samej długości oraz gdy 
składają się z identycznych znaków. Jeśli nie są równe, to relacja dotycząca 
łańcuchów zostaje zastąpiona relacją pierwszej pary odpowiadających sobie, 
ale różnych znaków. Jeśli para taka nie została znaleziona, ponieważ począt- 
kowym fragmentem jednego z łańcuchów jest drugi łańcuch, to za mniejszy 
zostanie uznany ten łańcuch. który jest krótszy. 


Przykłady 
Wyrażenie Rezultat 
A > 'B false 
jan' > Jan true 
" < char(0) true 
=" true 
Jan <= Jane' true 


"2599 < '270' true m 
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Przypisania 


Przypisania łańcuchów zmiennym łańcuchowym mogą być realizowane za 
pomocą instrukcji przypisania. Z prawej strony dwuznaku przypisania może 
wystąpić dowolne wyrażenie łańcuchowe, natomiast z lewej nazwa zmiennej 
łańcuchowej. Jeśli długość łańcucha reprezentowanego przez wyrażenie prze- 
kracza maksymalny rozmiar łańcucha, który może być reprezentowany 
w zmiennej, to przypisanie odbywa się od lewej do prawej z pominięciem 
znaków nadmiarowych. 


Przykład 


type 
Name = string [7 ]; 
var 
FirstName,LastName : Name; 


FirstName:= Jan; 
LastName := "Bielecki; 


e Zmiennej FirstName zostanie przypisana dana łańcuchowa o wartości 
literału Jan. 

e Zmiennej łańcuchowej LastName zostanie przypisana dana łańcuchowa 
o wartości literału "Bielecki. m 


Podprogramy 

Rozszerzeniem zbioru operacji łańcuchowych są funkcje i podprogramy łań- 
cuchowe. Ich użycie znakomicie ułatwia przetwarzanie danych łańcuchowych. 
Funkcja Length 

Wywołanie: Length(Str) 


Przyjmuje się, że Str jest wyrażeniem łańcuchowym reprezentującym ciąg 
znaków. 


Rezultatem funkcji Length jest dana typu integer o wartości określającej liczbę 
znaków tego ciągu. 


Przykłady 
Wyrażenie Rezultat 
Length(jb') 2 
Length(””) l 


Length(*) 0 [i 
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Procedura Str 
Wywołanie: Str(Val, Var) 


Przyjmuje się, że Val jest wyrażeniem arytmetycznym, a Var jest nazwą 
zmiennej łańcuchowej. 


Wykonanie procedury Str powoduje przekształcenie danej reprezentowanej 
przecz wyrażenie Val w ciąg wzorcowy mający postać literału o wartości tej 
danej, a następnie przekształcenie tego ciągu w daną łańcuchową i przypisanie 
zmiennej Var. 


Jeśli wyrażenie Val jest typu integer, to przyjmuje się, że ciąg wzorcowy ma 
postać liczby całkowitej o minimalnej liczbie cyfr. 


Jeśli bezpośrednio po wyrażeniu Val występuje kwalifikator o postaci :m, 
w którym m jest wyrażeniem typu integer, to określa on długość ciągu znaków, 
na który zostanie przekształcona dana reprezentowana przez Val. W ciągu 
takim wymieniony wyżej ciąg wzorcowy jest wyrównany prawostronnie. Jeśli 
ciąg wzorcowy nie da się przedstawić za pomocą m znaków, to m zostanie 
niejawnie zwiększone o tyle, aby było to wykonalne. 


Przykłady 
(Przyjęto, że StrVar jest typu string [4].) 
Wywołanie Ciąg Str Var 
Str(45,Str Var) 45 45 
Str(—250,Str Var) — 250 "—250 
Str(45:3,Str Var) b45 "45 
Str(45:5,Str Var) bbb45 "4 
Str(— 2:5,Str Var) bbb—2 j — [m 
Jeśli wyrażenie Val jest typu real, to przyjmuje się, że ciąg wzorcowy ma postać 
bsd.ddddddddddEsdd 


w której b jest spacją, s jest znakiem mantysy lub wykładnika, a d jest cyfrą. 
Znak mantysy jest reprezentowany za pomocą spacji albo znaku — (minus), 
a znak wykładnika jest reprezentowany za pomocą znaku + (plus) albo 
— (minus). 


Jeśli bezpośrednio po wyrażeniu Val występuje kwalifikator o postaci :m, 
w którym m jest wyrażeniem typu integer, to określa on długość ciagu znaków, 
na który zostanie przekształcona dana reprezentowana przez Val. W ciągu 
takim wymieniony wyżej literał zostanie wyrównany prawostronnie. Jeśli 
literał nie da się przedstawić za pomocą m znaków, to z wymienionego wyżej 
ciągu wzorcowego zostaną w pierwszej kolejności usunięte spacje wiodące, 
a jeśli i to nie poskutkuje, to zostanie odpowiednio zmniejszona liczba cyfr 
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mantysy, ale nie mniej niż do 2 cyfr. W przypadku redukowania liczby cyit 
mantysy będzie stosowane zaokrąglenie. 


Przykłady 

(Przyjęto, że Exp ma wartość 45.678E1, a StrVar jest typu string[10].) 
Wywołanie Ciąg StrVar 
Str(Exp:9,Str Var) 4.568E + 02 '4,568E + 02' 
Str(Exp:8,StrVar) 4.57E +02 '4.57E + 02 
Str(Exp:7,StrVar) 4.6E + 02 '4,6E + 02' 
Str(Exp:6,Str Var) 4.6E + 02 '4.6E + 02 
Str(Exp:10,Str Var) 4.5678E + 02 '4.5678E + 02 
Str(Exp:11,StrVar) 4.5678E+02 '4.5678E+ 0 


Jeśli bezpośrednio po Val występuje kwalifikator o postaci :m:n, w którym 
m i n są wyrażeniami typu integer, to omawiany literał jest wyrównywany 
prawostronnie w ciągu o długości m i niezależnie od wartości m jest 
przedstawiany jako zaokrąglony literał stałopozycyjny z n cyframi ułam- 
kowymi. Jeśli literał nie da się przedstawić za pomocą m znaków, to m zostanie 
niejawnie zwiększone o tyle, aby było to wykonalne. 


Przykłady 

Przyjęto, że Exp ma wartość 45.678El, a StrVar jest typu string[10)) 
Wywołanie Ciąg StrVar 
Str(Exp:6:2,Str Var) 456.78 '456.78 
Str(— Exp:6:2,Str Var) —456.78 — 456.78 
Str(—Exp:8:2, Str Var) b—456.78 * —456.78 
Str(—Exp:12:2,StrVar) . bbbbb— 456.78 i —456. 
Str(—Exp:0:2,Str Var) —456.78 "—456. [M 

Procedura Val 


Wywołanie: Val(Str,Var,Rep) 


Przyjmuje się, że Str jest wyrażeniem łańcuchowym, Var jest nazwą zmiennej 
typu integer albo real, a Rep jest nazwą zmiennej typu integer. 


Wykonanie procedury Val powoduje potraktowanie znaków danej reprczen- 
towanej przez Str jako liczby i przypisanie danej o wartości tej liczby zmiennej 
Var. Zabrania się, aby wspomniana liczba była poprzedzona spacjami, jak 
również zabrania się, aby po niej następowały spacje. Jeśli Var jest nazwą 
zmiennej typu integer, to wymaga się, aby także i liczba była typu integer. 


Jeśli opisana konwersja jest wykonalna, to zmiennej Rep zostanie przypisana 
dana o wartości 0. W przeciwnym razie, zmiennej tej zostanie przypisana dana 
o wartości dodatniej. Wartość tej danej będzie stanowić numer tego znaku 
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danej łańcuchowej, który uniemożliwił dokonanie konwersji. W takim przy- 
padku wartość zmiennej Var nie ulegnie zmianie. 


Przykłady 

(Przyjęto, że IntVar i Rep są nazwami zmiennych typu integer.) 
Wywołanie IntVar Rep 
Val('23',IntVar,IntRep) 23 0 
val(23.0',IntVar,IntRep) b.z. 3 
Val — 200, IntVar,IntRep) b.z. 5 [m 


Funkcja Copy 
Wywołanie: Copy(Str,Pos,Num) 


Przyjmuje się. że Str jest wyrażeniem łańcuchowym, a Pos i Num są 
wyrażeniami typu integer. 


Rezultatem funkcji Copy jest dana łańcuchowa składająca się z Num znaków 
łańcucha reprezentowanego przez Str, począwszy od znaku o numerze Pos. 
Jeśli Pos > Length(Str), to rezultatem funkcji jest dana łańcuchowa reprezen- 
tująca pusty ciąg znaków. Jeśli (Pos+ Num) > Length(Str), to przyjmuje się 
Num:= Length(Str) — Pos+1. Zabrania się, aby Pos wykraczało poza zakres 
1..255. 


Przykłady 
Wywołanie Rezultat 
Copy( Branka ”,3,4) "anka 
Copy( Branka ”,5,3) *ka' 
Copy( Branka”,7,2) » 
Copy( Branka',2,1) qr [BB 


Funkcja Concat 
Wywołanie: Concat(Stl,St2, ... „Stk) 
Przyjmuje się, że StI,St2 ... „Stk są wyrażeniami łańcuchowymi. 


Rezultatem funkcji jest dana łańcuchowa St/+St2+ .. +Stk. Zabrania się, 
aby suma długości argumentów przekraczała 255. 


Przykłady 
Wywołanie Rezultat 
Concat(j,a,n) "jan" 
Concat(j,”,b') jb” 


Concat(jan', ,b') jan b [m 
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Funkcja Pos 
Wywołanie: Pos(Src, Tg) 
Przyjmuje się, że Src i Trg są wyrażeniami łańcuchowymi. 


Rezultatem funkcji Pos jest dana typu integer, której wartość określa naj- 
mniejszy numer tej pozycji w ciągu znaków reprezentowanym przez Tig, od 
której rozpoczyna się podciąg identyczny z podciągiem reprezentowanym 


przez Śrc. Jeśli podciąg taki nie występuje, to rezultatem funkcji jest dana 
o wartości O. 


Przykłady 
Wywołanie Rezultat 
Pos(23,123123') 2 
Pos(21,123123') 0 
Pos(c ,abcabc') 3 
Pos(',izabela') 0 


Procedura Insert 
Wywołanie: Insert(Src,Trg,Pos) 


Przyjmuje się, że Src jest wyrażeniem łańcuchowym, Ti'g jest nazwą zmiennej 
łańcuchowej, a Pos jest wyrażeniem całkowitym. 


Wykonanie procedury Insert powoduje wstawienie do ciągu znaków repre- 
zentowanego przez Trg, w miejscu przed jego znakiem określonym przez Pos, 
ciągu znaków reprezentowanego przez Src. Jeśli Pos > Length(Trg), to przyj- 


muje się, że Pos:= Length(Trg)+1. Zabrania się, aby Pos wykraczało poza 
zakres 1..255. 


Jeśli wstawienie znaków spowodowałoby przekroczenie maksymalnego roz- 
miaru zmiennej 7łg, to przypisanie jej danej reprezentującej nowy ciąg znaków 
odbędzie się od lewej do prawej, z odrzuceniem znaków nadmiarowych. 
Przykłady 


(Przyjęto, że zmienna Trg jest typu string[5], a przed każdym wykonaniem 
procedury Insert ma wartość jb.) 


Wywołanie Trg 

Insert( an',Trg,2) "janb' 

Insert(jb',Trg,4) "jbjb' 

Insert(janek',Trg,l) "Janek U 


Procedura Delete 


Wywołanie: Delete(Str,Pos,Num) 
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Przyjmuje się, że Str jest nazwą zmiennej łańcuchowej, a Pos i Num są 
wyrażeniami całkowitymi. 


Wykonanie procedury Delete powoduje usunięcie z ciągu znaków reprezen- 
towanego przez Str, porcji Num znaków, począwszy od pozycji Pos. Jeśli 
Pos > Length(Str), to wykonanie procedury nie ma żadnych skutków. Jeśli 
Pos+ Num—1 > Length(Str), to przyjmuje się. że Num:= Length(Str) 
— Pos+1. Zabrania się, aby Pos wykraczało poza zakres 1..255. 


Przykłady 
(Przyjęto, że zmienna Trg jest typu string[5], a przed każdym wykonaniem 
procedury ma wartość janek'.) 


Wywołanie Trg 

Delete(Trg,4,2) *jan' 

Delete(Ttg,6,1) janek 

Delete(Trg,5,3) jane [m 


Typy łańcuchowe i znakowe 


Wszystkie typy łańcuchowe oraz predefiniowany typ porządkowy char są ze 
sobą zgodne. Oznacza to, że w tych wszystkich miejscach programu, w których 
jest poprawne użycie wyrażenia łańcuchowego, jest poprawne odwołanie do 
danej typu char i na odwrót. Wymaga się jedynie, aby podczas przypisywania 
wyrażenia łańcuchowego zmiennej typu char dana reprezentowana przez to 
wyrażenie była ciągiem znakowym o długości 1. 


Dostęp do poszczególnych znaków zmiennej łańcuchowej można uzyskać nie 
tylko za pomocą predefiniowanej funkcji Copy, ale znacznie łatwiej za pomocą 
indeksowania. Jako definicję indeksowania można przyjąć równoważność 


St[i] = Copy(St,i,1) 


Równoważność ta jest jednak prawdziwa tylko wtedy, gdy zachodzi relacja 
l £i<lLength(St). Poza tym zakresem możliwe jest sięganie do sąsiednich 
bajtów pamięci operacyjnej, a w szczególności posługiwanie się wyrażeniem 
ord(St[0]) w celu określenia bieżącej długości ciągu znakowego reprezen- 
towanego przez St. 


Należy nadmienić, że użycie dyrektywy kompilatora ($R +) tylko w niewiel- 
kim stopniu umożliwia wykrycie błędów związanych z niepoprawnym in- 
deksowaniem. Wynika to stąd, że dyrektywa ta włącza kontrolę przekroczenia 
maksymalnego dopuszczalnego indeksu, znanego z deklaracji, ale nie wpro- 
wadza kontroli odwoływania się poza bieżący rozmiar zmiennej. 
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Przykład 

var 
Name : string[5]; 

Name:= Jan; 
(5R+) 
Name[0] := chr(5); 
Name[4]:= e; 
Name[5]:= 'k; 


e Po wykonaniu przytoczonych przypisań zmienna Name ma wartość "Janek. 

e Użycie dyrektywy kompilatora ($R+) jest zbędne, ponieważ nie ma 

wpływu na przebieg wykonywania przypisań. 

e Gdyby w zasięgu wspomnianej dyrektywy wystąpiło np. przypisanie 
Name[6]:= 'B' 


to wykonywanie programu zostałoby wstrzymane na skutek przekroczenia 
maksymalnego dopuszczalnego zakresu indeksu. [m 


9. Typy tablicowe 


Każdy z typów tablicowych jest typem złożonym. Tablica składa się z ustalonej 
liczby komponentów, z których każdy jest takiego samego typu. Komponenty 
mogą być zarówno typu prostego jak i typu złożonego. Dostęp do kom- 
ponentów tablicy, nazywanych również elementami, odbywa się poprzez 
indeksowanie. Indeksem może być dowolne wyrażenie porządkowe ujęte w na- 
wiasy kwadratowe. Dopuszczalny zakres indeksów jest określony w opisie typu 
tablicowego. 


Opis typu tablicowego składa się ze słowa kluczowego array, bezpośrednio po 
którym następuje ujęty w nawiasy kwadratowe opis typu indeksów, słowo 
kluczowe of, a za nim opis typu elementów. 


Składnia 
opis-typu-tablicowego: 
array[typ-indeksów ] of typ-elementów 
typ-indeksów: 
opis-typu-porządkowego 
typ-elementów: 
opis-typu 


Przykłady 

type 
Color = (Red,Green,Blue); 
Truth Table = array[boolean] of boolean; 
Height = 0..200; 

var 
Square : array[Color] of Height; 
Matrix : array[2..8] of array[2..8] of integer; 
Table : Tłuth Table; 


S$ — Turbo Pascal... 
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e Typ TruthTable jest związany ze zbiorem tablic o indeksach i elementach 
typu boolean. 

e Zmienna Square jest tablicą o indeksach typu Color i elementach typu 
Height. 

e Zmienna Matrix jest tablicą o indeksach typu 2..8 i elementach, które są 
tablicami o indeksach typu 2..8 i elementach typu integer. 

e Zmienna Table jest tablicą typu Truth Table, tj. tablicą o indeksach i elemen- 
tach typu boolean. m 


Elementy tablic są reprezentowane w programach za pomocą tzw. nazw 
elementów tablic. Nazwa elementu tablicy składa się z nazwy tablicy, bez- 
pośrednio po której następuje wyrażenie indeksowe ujęte w nawiasy kwa- 
dratowe. Wyrażenie indeksowe może być dowolnym wyrażeniem porządko- 
wym takiego samego typu jaki pod nazwą typ-indeksów występuje w opisie 
typu tablicowego. 


Użycie dyrektywy ($R + ) powoduje generowanie kodu dokonującego kontroli 
poprawności wyrażeń indeksowych. Kontrola ta polega na upewnieniu się, że 
wartość wyrażenia indeksowego mieści się w zakresie wyznaczonym przez typ 
indeksów w opisie typu tablicowego. 


Przykład 
type 
Color = (Red,Green,Blue); 
var 
Matrix : array[Color] of boolean; 


e Zmienna Matrix jest tablicą o indeksach typu Color i elementach typu 
boolean. 


e Poprawnymi nazwami elementów tablicy Matrix są m.in. 
Matrix [ Green] 


Matrix [ pred(Blue)] 
Matrix [Color(ord(true)) ] 


e W zasięgu dyrektywy kompilatora ($R+) taka nazwa elementu tablicy jak 
np. Matrix[succ(Blue)] zostałaby rozpoznana jako niepoprawna. [B) 


Tablice wielowymiarowe 

Ponieważ elementami tablic mogą być tablice, łatwo jest konstruować tablice 
dwu- i więcejwymiarowe. Zgodnie ze składnią, definicja typu opisującego 
tablicę dwuwymiarową przybiera np. postać 


type 
TwoDim = array[2..5] of array[boolean] of real; 
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Definicja taka może być zapisana w sposób uproszczony 


type 
TwoDim = array [2..5,boolean] of real; 
tzn. opisy typu indeksów mogą być ujęte w listę zawartą w nawiasach 
kwadratowych. 


Podobne uproszczenie może być zastosowane również w odniesieniu do nazw 
elementów tablic. W zasięgu deklaracji takiej jak np. 
var 
Matrix : TwoDim; 


za poprawne i równoważne uznaje się bowiem takie m.in. nazwy elementów 
tablicy Matrix jak Matrix[3] [true] i Matrix[3,true]. 


Przykład 
type 
Pupils = string[ 20]; 
Class = array[1..30] of Pupils; 
var 
School : array[1..20] of Class; 


e Typ Class jest związany ze zbiorem, którego elementami są tablice zawiera- 
jące wykazy nazwisk uczniów pewnej klasy. 
e Zmienna School jest tablicą dwuwymiarową, typu 
array[1..20] of array[1..30] of string[20] 
w której przechowywane są dane określające nazwiska uczniów każdej z 20 


klas danej szkoły. 
e Nazwa Śchool[3][[25] dotyczy ucznia klasy nr 3, występującego na liście 
uczniów tej klasy na pozycji 25. Nazwa ta jest równoważna nazwie uprosz- 


czonej School [3,25]. [m 


Wektory znakowe 


Wektorami znakowymi są tablice jednowymiarowe, o typie indeksów integer, 
których elernenty są typu standardowego char. Wektory takie mogą być 
uważane za zmienne łańcuchowe reprezentujące ciągi znaków o stałej długości. 
Dzięki takiej interpretacji nazwy wektorów znakowych i nazwy ich elementów 
mogą występować w wyrażeniach łańcuchowych wszędzie tam, gdzie mogą 
występować nazwy zmiennych łańcuchowych. Dotyczy to w szczególności 


relacji. 
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Przykład 
type 
Number = 2..5; 
StrTyp = string[5]; 
ArrTyp = array[ Number] of char; 
var 
StrVar : StrTyp; 
ArrVar : ArrTyp; 
i: byte; 
begin 
for i:= 2 to 5 do 
ArrVar[i] := ord(63 + i); 
StrVar := '98765'; 


StrVar := Copy(StrVar,2,2) + ArrVar + '/ + ArrVar[4]; 
end. 


e Po wykonaniu drugiej instrukcji przypisania zmienna StrVar ma wartość 
"87ABCDJ/C.. 


© W tym samym momencie relacja 
ArrVar > StrVar 


ma wartość true. 


Przypisania 


Zgodnie z zasadą, że zmiennej dowolnego typu może być przypisana dana 
takiego samego typu, jest możliwe przypisanie, za pomocą jednej instrukcji, 
całej tablicy danej tablicowej. Dozwolone jest również przypisanie tablicy 
znakowej danej reprezentowanej przez literał znakowy, ale tylko wtedy, gdy 
liczba znaków literału jest równa liczbie znaków tablicy. 


Przykład 
type 
Line = string[60]; 
Page = array[1..30] of Line; 
Chapter = array[1..50| of Page; 
Word = array[1..5] of char; 


var 
Bookl,Book2 : array[1..6] of Chapter; 
Arr : Word; 


Brr : array[1..5] of char; 
Str : string[5 |]; 
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o W zasięgu przytoczonych definicji i deklaracji poprawne są m.in. nas- 
tępujące przypisania: 

Bookl := Book2 

Arr:= Janek 


Str := Arr 
o Niepoprawne są natomiast przypisania 
Arr:= Jan — ponieważ literał liczy za mało znaków 
Arr:= Str  — ponieważ Śtr jest wyrażeniem łańcuchowym 
Arr:= Brr — ponieważ Arr jest typu Word, a Brr nie jest typu 


Word. 0 


Tablice predefiniowane 


W języku Turbo Pascal predefiniowano dwie tablice o elementach typu byte 
i dwie tablice o elementach typu byte, umożliwiające dostęp do pamięci 
operacyjnej oraz do portów wejścia/wyjścia. 


Tablice Mem i MemW 


Tablice Mem i MemW zapewniają dostęp do pamięci operacyjnej. Pierwsza 
z nich udostępnia bajt, a druga — słowo. Indeksem w każdym odwołaniu do 
tych tablic jest wyrażenie adresowe składające się z oddzielonych znakiem 
: (dwukropek) dwóch wyrażeń typu integer, określających kolejno: numer 
segmentu i adres względny w segmencie pamięci. 


Przykład 

ByteVar := Mem[0000 : 0023] 

MemW| Seg(WordVar) : Ofs(WordVar)] := $FFAA 
e Wykonanie pierwszej instrukcji powoduje przypisanie zmiennej ByteVar 
danej reprezentowanej w bajcie pamięci operacyjnej znajdującym się 
w segmencie 0000 pod adresem względnym 0023. 
e Wykonanie drugiej instrukcji powoduje umieszczenie danej słowowej o war- 
tości $FFAA w pierwszych dwóch bajtach zmiennej WordVar. Predefiniowane 
funkcje Seg i Ofs zostały tu wykorzystane do określenia segmentu i adresu 
względnego w segmencie, przypisanych pierwszemu bajtowi pamięci zajętemu 
przez zmienną WordVar. [8 


Tablice Port i PortW 


Tablice Port i PortW zapewniają dostęp do portów wejścia/wyjścia. Typem 
indeksów tych tablic jest integer. Elementy tablic Port i PortW nie mogą 
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występować jako argumenty odwołań do podprogramów, ale mogą wystę- 
pować w wyrażeniach oraz z lewej strony symbolu przypisania. Jeśli występują 
w wyrażeniu, to reprezentują daną pochodzącą z podanego portu. Jeśli 
występują z lewej strony symbolu przypisania, to następuje przesłanie danej do 
podanego portu. 
Przykład 

Port[34] := $5F; 

WordVar := PortW[ 34]; 
e Wykonanie pierwszej instrukcji powoduje umieszczenie w porcie 8-bitowym 
o adresie 34 danej reprezentowanej przez literał $5F. 
e Wykonanie drugiej instrukcji powoduje sięgnięcie do portu 16-bitowego 
i przypisanie znajdującej się tam danej, zmiennej WordVar. 8 


10. Typy rekordowe 


Każdy z typów rekordowych jest typem złożonym. Rekord składa się 
z ustalonej liczby komponentów, które mogą być różnych typów. Komponenty 
mogą być zarówno typu prostego jak i złożonego. Dostęp do komponentów, 
nazywanych również polami, odbywa się poprzez selekcję. Selekcja polega na 
określeniu nazwy rekordu, po której następuje znak . (kropka) i identyfikator 
pola rekordu. 


Opis typu rekordowego składa się ze słowa kluczowego rekord, bezpośrednio po 
którym następuje wykaz pól rekordu i słowo kluczowe end. Każdy element 
wykazu ma postać deklaracji pola. Deklaracje pól są oddzielone średnikami, 
a ostatnim elementem wykazu może być część wariantowa rekordu. Część 
wariantowa składa się ze słowa kluczowego case, bezpośrednio po którym 
następuje deklaracja pola wyróżnikowego albo opis typu wyróżnikowego, 
słowo kluczowe of, a bezpośrednio po nim wykaz wariantów. Każdy element 
wykazu wariantów składa się z listy etykiet wyboru zakończonej dwukropkiem 
i ujętego w nawiasy okrągłe wykazu pól wariantu. Poszczególne elementy 
wykazu wariantów są oddzielone średnikami. 


Składnia 
opis-typu-rekordowego 
record wykaz-deklaracji-pól-rekordu end 
wykaz-deklaracji-pól-rekordu; 
deklaracja-pola 
część-wariantowa-rekordu 
deklaracja-pola: 
lista-nazw-pól : opis-typu 
nazwa-pola: 
identyfikator 
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część-wariantowa-rekordu: 
case deklaracja-pola-wyróżnikowego of wykaz-wariantów 
case opis-typu-wyróżnikowego of wykaz-wariantów 
deklaracja-pola-wyróżnikowego: 
nazwa-pola-wyróżnikowego : opis-typu-wyróżnikowego 
nazwa-pola-wyróżnikowego: 
identyfikator 
opis-typu-wyróżnikowego: 
identyfikator-typu-porządkowego 
wykaz-wariantów: 


lista-etykiet-wyboru : ( wykaz-pól-wariantu ) 
etykieta-wyboru: 


literał 
nazwa-literalu 
Przykłady 
type 
Days = 1.31; 
Date = record 


Day : Days; 

Month : 1..12; 

Year : 1900..1999 

end; 
Person = record 

Name : string[20]; 

BirthPlace : string[30]; 

case Sex : (male, female,alien) of 
male, female : (BirthDate : Date); 
alien : (BirthDate : real; 

BodyData : record 


H : integer; 
W : real 
end) 


end; 
var 
MyBirthDay : Date; 
EarthMan,Galaxian : Person; 


e Typ Date jest związany ze zbiorem rekordów, których pola są typu Days, 
1.12 i 1900..1999. 

e Typ Person jest związany ze zbiorem rekordów z wariantami. Wyróżnikiem 
wariantów jest pole Sex typu (male, female,alien). Jeśli wyróżnik Sex ma 
wartość male albo female, to rekord typu Person składa się z pól typu 
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string[20], string[30], (male, female,alien), 1..31, 1..12 i 1900..1999. Jeśli wyróż- 
nik Sex ma wartość alien, to rekord typu Person składa się z pól typu 
string[20], string[30], (male, female,alien), real, integer i real. 

e Zmienna MyBirthDay jest rekordem składającym się z pól Day, Month 
1 Year. 

e Zmienne EarthMan i Galaxian są rekordami typu Person. Wybór wariantu 
rekordów odbywa się przez przypisanie polu wyróżnikowemu, danej typu 
(male, female,alien). 

e Pole wyróżnikowe zmiennej Earthman jest identyfikowane przez selekcję 
EarthMan.Sex, a pole wyróżnikowe zmiennej Galaxian przez selekcję 
Galaxian.Sex. 

e Po wykonaniu przypisania 


Galaxian.Sex : = alien 
jest dozwolone odwoływanie się do komponentów wariantu alien. W szcze- 
gólności poprawne jest wówczas przypisanie 

Galaxian.BodyData.H := 20 


w którym operator selekcji . (kropka) zastosowano najpierw do komponentów 
rekordu Galaxian, a następnie do komponentów rekordu Galaxian.Body 
Data. O 


Instrukcja with 


Odwoływanie się do komponentów rekordu wymaga podania nie tylko nazwy 
pola, ale również nazwy samego rekordu. Ponieważ w pewnych przypadkach 
znacznie wydłuża to tekst programu, wygodnie jest posłużyć się instrukcją 
wiążącą with „odsłaniającą” wnętrze definicji typu rekordowego. 
W ogólnym przypadku instrukcja with składa się ze słowa kluczowego with, 
bezpośrednio po którym następuje lista nazw rekordów, słowo kluczowe do 
1 dowolna instrukcja. W jej obrębie selekcja pola rekordu wymienionego na 
liście może być zastąpiona samą nazwą pola. Przyjmuje się, z definicji, że 
instrukcja o postaci 

with a, b, ... ,z do ii 
jest równoważna instrukcji 

with a do 


with b do 


with z do i 
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Składnia 
instrukcja with: 
with lista-nazw-rekordów do instrukcja 
nazwa-rekordu: 
identyfikator 
nazwa-elementu-tablicy 
nazwa-pola 


Przykład 
var 
Alfa : record 
Beta : record 
Gamma : char; 
Delta : real 
end; 
Gamma : integer 
end; 
Beta : array[boolean] of record 
Chi,Tau : real 
end; 


e W zasięgu przytoczonej deklaracji jest poprawna instrukcja 
with Alfa.Beta,Beta[true] do 
Delta:= Tau 
wykonywana tak jak instrukcja 
Alfa.Beta.Delta := Beta[true].Tau 
e Poprawna jest także instrukcja 


with Alfa.Beta,Alfa do begin 
Delta := 23.4; 
Writeln(Gamma) 


end 
wykonywana jak instrukcja 
begin 
Alfa.Beta.Delta := 23.4; 
Writeln(Alfa.Gamma) 
end 


e Należy zwrócić uwagę, że kolejność nazw rekordów na liście instrukcji with 
jest istotna, gdyż instrukcja taka jak 
with Alfa,Alfa.Beta do begin 


Delta := 23.4; 
Writeln(Gamma) 
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end 
jest wykonywana tak jak instrukcja 


begin 
Alfa.Beta.Delta:= 23.4; 
Writeln(Alfa.Beta.Ganma) 
end 


a nie jak instrukcja 


begin 
Alfa.Beta.Delta := 23.4; 
Writeln(Alfa.Gamma) 
end m 


Traktowanie wariantów jako unii 


Jeśli rekord zawiera część wariantową, to w reprezentacji wewnętrznej przyjętej 
w Turbo Pascalu, pierwsze pole każdego wariantu zaczyna się od tego samego 
bajtu pamięci. Biorąc ponadto pod uwagę, że deklaracja pola wyróżnikowego 
części wariantowej może zostać uproszczona do opisu typu. łatwo jest 
przekształcić opis rekordu w opis unii. Należy jedynie uwzględnić, iż w odróż- 
nieniu od operacji na rekordach operacje na uniach wymagają znajomości 
sposobu reprezentowania komponentów, a przynajmniej sposobu rozmiesz- 
czenia i rozmiaru każdego z nich. 


Przykład 
var 
Word : record 
case boolean of 
false : (LowByte,HighByte : byte); 
true : (FullWord : integer) 
end 


e W zasięgu przytoczonej deklaracji jest dopuszczalne zastąpienie instrukcji 


with Word do 
FullWord:= FullWord and $FFO00 


instrukcją 


with Word do 
LowByte:=0 


e Poprawność przytoczonego postępowania wynika z faktu, że w implemen- 
tacji dla IBM PC mniej znaczący bajt danej typu integer zajmuje w pamięci 
operacyjnej bajt o niższym adresie, a pola struktury występują w pamięci 
operacyjnej w takiej samej kolejności w jakiej zostały zadeklarowane (tu 
LowByte przed HighByte). m 
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Przypisania rekordów 


Analogicznie do przypisywania zmiennym tablicowym całych tablic jest 
dozwolone przypisywanie zmiennym rekordowych całych rekordów. Wymaga 
się jedynie, aby typ zmiennej rekordowej był identyczny z typem przypi- 
sywanego jej rekordu. 


Przykład 
type 
Name = record 
LastName : string[32]; 
Names : array[(fst,snd,trd)] of string[8] 
end; 
var 
JohnName,EwaName : Name; 


EwaName := JohnName; LJ 


Il. Typy mnogościowe 


Każdy z typów mnogościowych jest typem złożonym. Mnogość jest zmienna, 
której może być przypisany wybrany podzbiór pewnego zbioru potęgowe- 
go. Zbiorem bazowym zbioru potęgowego może być dowolny zbiór elementów 
typu porządkowego. Każdy element mnogości jest jednym z takich właśnie 
elementów. 


Dwie dane mnogościowe są uznawane za równe wtedy i tylko wtedy, gdy 
składają się z takich samych elementów. Jeśli wszystkie elementy jednej 
mnogości są elementami drugiej, to mówi się, że pierwsza mnogość zawiera się 
w drugiej. 


Opis typu mnogościowego składa się ze słowa kluczowego set, bezpośrednio po 
którym następuje kluczowe of i opis typu bazowego. Wymaga się, aby typ 
porządkowy pełniący rolę typu bazowego nie zawierał więcej niż 256 elemen- 
tów oraz aby rezultat funkcji ord dla każdego z tych elementów mieścił się 
w przedziale domkniętym [0 ; 255]. 


Składnia 
opis-typu-mnogościowego 
set of typ-bazowy 
typ-podstawowy: 
typ-porządkowy 


Przykłady 
type 
DaysOf Week = set of (Mon,Tue,Wed,T'hu,Fri,Sat,Sun); 
Chars = set of char; 
SmallLetters = set of a..z; 
DayNumbers = set of 1..31; 
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e Wartością danej typu DaysOf Week może być dowolny, w tym pusty, 
podzbiór zbioru nazw dni tygodnia. 

e Wartością danej typu Chars może być dowolny podzbiór zbioru znaków 
kodu AŚCII. 

e Wartością danej typu SmallLetters może być dowolny podzbiór zbioru 
małych liter alfabetu ASCII. 

e Wartością danej typu DayNumbers może być dowolny podzbiór zbioru liczb 
całkowitych z przedziału domkniętego [1, 31]. m 


Literały mnogościowe 


Literał mnogościowy składa się z zawartej w nawiasach kwadratowych listy 
literałów, z których każdy jest tego samego typu porządkowego. Lista ta może 
być pusta, może zawierać powtórzenia elementów oraz może zawierać kon- 
strukcje o postaci min..max, w których min i max są literałami tego samego 
typu. W tym ostatnim przypadku napis min.mmax jest równoważny liście 
wszystkich literałów od min do max włącznie. Jeśli min > max, to napis ten 
opisuje podzbiór pusty. 


Należy nadmienić, że wartość literału mnogościowego nie zależy od kolejności 
tworzących go literałów typu bazowego, a wielokrotne ich wystąpienia nie 
mają wpływu na wartość literału mnogościowego. 


Przykład 
Kilka poprawnych i niepoprawnych literałów mnogościowych 
Literały poprawne: [P,a,s,c,a,r] 
[4,9,5,0,8,6] 
[true, false ] 


[] 
[20..30,50,70..80] 
Napisy, które nie są literałami mnogościowymi. 


[true,ż] '— różne typy bazowe 

[200..300] — ord(300) > 255 

[4.0,5.0] — typ bazowy nie jest typem porządkowym m 
Wyrażenia 


Wyrażenia mnogościowe składają się z odwołań do zmiennych mnogościowych, 
odwołań do literałów i konstruktorów mnogościowych oraz operatorów sumy, 
różnicy i przecięcia. 
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Konstruktory mnogościowe mają postać zbliżoną do literałów mnogościowych, 
tyle że elementami ich list mogą być nie tylko literały typu podstawowego, ale 
również dowolne wyrażenia tego typu. 


Operator sumy mnogości jest zapisywany za pomocą znaku + (plus), operator 
różnicy za pomocą znaku — (minus), a operator przecięcia za pomocą znaku 
x (gwiazdka). 


Sumą mnogości jest mnogość składająca się z wszystkich elementów obu 
składników. Różnicą mnogości jest mnogość składająca się z tych wszystkich 
elementów odjemnej, które nie są elementami odjemnika. Przecięciem mnogości 
jest mnogość składająca się z wszystkich elementów wspólnych czynników 
przecięcia. | 


Poza operacjami mnogościowymi, dane typu mnogościowego mogą wystę- 
pować w relacjach 


a=b prawdziwej, jeśli a i b są zbiorami tych samych elementów. 

a<>b prawdziwej, jeśli a i b są różnymi zbiorami elementów. 

a<=b prawdziwej, jeśli a jest pustym zbiorem elementów albo gdy każdy 
element należący do a należy także do b. 

a>=b prawdziwej, gdy a jest pustym zbiorem elementów albo gdy każdy 
element należący do b należy także do a. 

e in a prawdziwej, gdy element typu podstawowego e jest elemen- 
tem zbioru elementów a. 

Przykłady 


W zasięgu deklaracji zmiennej SetVar, której przypisano daną mnogościową 
reprezentowaną przez literał [Red,Green]. 
type 
Colors = (Red,Green,Blue); 
Paint = set of Colors; 
var 
SetVar : Paint; 


SetVar := [Red,Green]; 


jest prawdziwe następujące zestawienie: 


Wyrażenie Rezultat 
SetVar = [Red..Blue] — [Blue] true 
SetVar <> [] true 
SetVar <=_[Red..succ(Green)] true 
SetVar >= [Blue..Green] true 
SetVar * [Red] = [Red] true 


Green in SetVar true U 
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Przypisania mnogości 


Analogicznie do przypisania zmiennym tablicowym całych tablic oraz zmien- 
nym rekordowym całych rekordów, jest dozwolone przypisywanie zmiennym 
mnogościowym mnogości. Wymaga się jedynie, aby typ zmiennej mnogoś- 
ciowej był identyczny z typem przypisywanej jej danej mnogościowej. 
Przykład 
var 
SetVar : array[2..5, boolean] of set of 20..30; 


SetVar[3,false] := [5+5..pred(29)]; 


e Prawą stronę instrukcji przypisania stanowi konstruktor mnogościowy. 
Konstruktor ten jest równoważny literałowi mnogościowemu [25,26,27,28]. © 


12. Typy plikowe 


Każdy z typów plikowych jest typem złożonym. Plik składa się z kom- 
ponentów, z których każdy jest takiego samego typu. Komponenty pliku są 
nazywane jego elementami. W odróżnieniu od typu tablicowego liczba 
elementów pliku nie jest ustalona w deklaracji pliku, lecz jest uzależniona od 
przebiegu wykonywania programu, a w szczególności od tego, z jakim zbiorem 
danych rozpatrywany plik zostanie skojarzony. 


Należy podkreślić, że obiekt nazywany plikiem jest jedynie abstrakcyjnym 
modelem fizycznego zbioru danych występującego najczęściej poza progra- 
mem. Fizyczne zbiory danych — nazywane tu krótko zbiorami — mogą 
rezydować w pamięci zewnętrznej komputera, mogą zajmować część jego 
pamięci operacyjnej, a także mogą być utożsamiane ze strumieniami danych 
wprowadzanych i wyprowadzanych za pomocą urządzeń zewnętrznych. 


Możliwość przetwarzania różnych zbiorów danych za pomocą tego samego 
pliku, po uprzednim skojarzeniu pliku ze zbiorem, stanowi znaczne ułatwienie 
programowania, ponieważ ogranicza zadanie programującego do koncentro- 
wania się na istotnych elementach algorytmu przetwarzania bez wnikania 
w działania specyficzne dla danego systemu operacyjnego oraz w sposób 
reprezentowania danych w pamięci zewnętrznej. Z tego względu programowa- 
nie na poziomie abstrakcji nazywanej plikiem sprowadza się głównie do 
otwarcia pliku, wykonania operacji na jego elementach oraz do zamknięcia 


pliku. 


Opis typu plikowego składa się ze słowa kluczowego file, bezpośrednio po 
którym następuje słowo kluczowe of, a za nim opis typu elementów pliku. 
Elementami pliku mogą być obiekty dowolnych typów prostych, a także 
dowolne agregaty z wyjątkiem plików. 


6 — Turbo Pascal... 
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Składnia 
opis-typu-plikowego: 
file of typ-elementów-pliku 
typ-elementów-pliku: 
opis-typu 


Przykłady 
type 
Measurements = file of real; 
Persons = file of 
record 
Name : string[20]; 
Sex : (male, female); 
Age : 18..65 
end; 
var 
Experiment : Measurements; 
Population : Persons; 
Complexes : file of record 
Re,lm : real 
end; 
Arrays : file of array [2..6,4..8,boolean] of byte; 


e Typ Measurements jest związany ze zbiorem sekwencji danych typu real. 
e Typ Persons jest związany ze zbiorem sekwencji składających się 
z rekordów o komponentach typu string[20], (male, female) i 18..65. 

e Zmienna Experiment jest zmienną plikową typu Measurement. 

e Complexes jest zmienną plikową reprezentującą plik związany ze zbiorem 
sekwencji par danych typu real. 

e Zmienna Arrays jest zmienną plikową reprezentującą plik związany ze 
zbiorem sekwencji tablic typu array [2..6,4..8,boolean] of byte. [m 


Podprogramy 


Operacje na plikach mogą być wykonywane jedynie za pomocą wywołań 
funkcji i procedur. Każda z takich operacji musi być poprzedzona skojarze- 
niem pliku ze zbiorem danych, a jeśli dotyczy elementów pliku, to musi być 
także poprzedzona otwarciem pliku. Skojarzenie pliku ze zbiorem odbywa się 
za pomocą procedury Assign, a otwarcie pliku za pomocą procedur Reset 
i Rewrite. Użycie procedury Reset nie implikuje, że plik jest otwierany 
wyłącznie w celu wprowadzania elementów zbioru, a użycie procedury Rewrite 
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nie implikuje, że plik jest otwierany wyłącznie w celu ich wyprowadzania. 
Przed zakończeniem wykonywania programu każdy plik powinien zostać 
zamknięty. Służy do tego procedura Close. Samo zakończenie wykonywania 
programu nie pociąga za sobą zamknięcia nie zamkniętych jeszcze plików. 


Bezpośrednio po otwarciu plik znajduje się w pozycji początkowej. Zmiana 
pozycji pliku może być uzyskana za pomocą procedury Seek. Aktualny 
rozmiar pliku może być określony za pomoca funkcji FileSize, a jego aktualna 
pozycja za pomocą funkcji FilePos. Jeśli plik zostanie ustawiony w pozycji 
pośredniej, tj. między pozycją początkową i końcową, to każde wykonanie 
procedury Write spowoduje zmianę najbliższego elementu pliku. Zmiana ta nie 
będzie miała żadnego wpływu na stan pozostałych elementów pliku. Z tego 
względu pliki o elementach ustalonego typu mogą reprezentować zbiory 
o organizacji sekwencyjno-wyrywkowej. 


Procedura Assign 
Wywołanie: Assign(FileVar,StrExp) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, a StrExp jest wyra- 
żeniem łańcuchowym. Wymaga się, aby plik FileVar nie był otwarty. 


Wykonanie procedury Assign powoduje skojarzenie pliku FileVar ze zbiorem 
danych o nazwie określonej przez wyrażenie ŚtrExp. 


Przykład 
var 
Results:file of real; 


Assign(Results,A: TESTS.DOC'); 


e Zmienna plikowa Results reprezentuje plik o elementach typu real. 

e Wykonanie procedury Assign powoduje skojarzenie pliku Results ze zbio- 
rem danych TESTS.DOC znajdującym się w domniemanym katalogu stacji 
dyskowej 4. 

e Wykonanie procedury Assign nie powoduje otwarcia pliku Results © 


Procedura Reset 
Wywołanie: Reset(FileVar) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Wymaga się, aby przed 
wywołaniem procedury Reset plik FileVar był skojarzony z istniejącym 
zbiorem danych. 


Wykonanie procedury Reset powoduje otwarcie pliku FileVar. Bezpośrednio 
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po otwarciu plik zostaje ustawiony w pozycji początkowej, tj. tuż przed jego 
pierwszym elementem. 


Przykład 


var 
InpFile : file of record 
Name : string[30]; 
Income : real 
end; 


Assign(InpFile, INCOME.DOC)); 
Reset(InpFile); 


e Wykonanie procedury Assign powoduje skojarzenie pliku InpFile ze zbio- 
rem INCOME.DOC znajdującym się w domniemanym katalogu domniemanej 
stacji dyskowej. 

e Wykonanie procedury Reset powoduje otwarcie pliku InpFile. 

e Otwarcie pliku za pomocą Reset nie wyklucza możliwości przyszłego 
odwoływania się do niego za pomocą procedur Seek i Write. [m 


Procedura Rewrite 


Wywołanie: Rewrite(FileVar) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Wymaga się, aby przed 
wywołaniem procedury Rewrite plik FileVar był skojarzony ze zbiorem danych. 


Wykonanie procedury Rewrite powoduje otwarcie pliku FileVar. Bezpośrednio 
po otwarciu plik zostaje ustawiony w pozycji początkowej, tj. tuż przed jego 
pierwszym elementem. 


Jeśli przed wykonaniem procedury Rewrite zbiór skojarzony z plikiem nie 
istniał, to zostanie utworzony. Jeśli istniał, to zostanie usunięty i utworzony 
ponownie. W obu przypadkach zostanie utworzony zbiór pusty. 


Przykład 
var 
OQutFile : file of array [1..20] of byte; 


Assign(OutFile'B: TESTS.OUT'); 
Rewrite(OutFile); 


e Wykonanie procedury Assign powoduje skojarzenie pliku OutFile ze zbio- 


rem TESTS.OUT znajdującym się na dyskietce umieszczonej w stacji dyskowej 
B. 
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e Wykonanie procedury Rewrite powoduje otwarcie pliku OutFile. Po doko- 
naniu otwarcia plik ten jest pusty. 

e Otwarcie pliku za pomocą procedury Rewrite nie wyklucza możliwości 
przyszłego odwoływania się do niego za pomocą wywołań procedur Seek 
i Read. m 


Procedura Read 
Wywołanie: Read(FileVar,VarList) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, a VarList jest listą nazw 
zmiennych. Wymaga się, aby plik FileVar był otwarty. Zabrania się, aby 
jakakolwiek zmienna listy VarList była innego typu niż typ elementów pliku. 


Wykonanie procedury Read z listą nazw zmiennych jest równoważne wyko- 
naniu ciągu procedur Read z nazwami tych zmiennych. Wykonanie procedury 
Read z nazwą zmiennej powoduje wprowadzenie z pliku jednego elementu 
i przypisanie go zmiennej o podanej nazwie. 


Przykład 
type 
ElmType = record 
Re,lm : real 
end 
var 
InpFile : file of ElmType; 
ArrVar : array[boolean,2..4] of ElmType; 


Assign(InpFile, COMPLEX.DOC'); 
Reset(InpFile); 
Read(InpFile,ArrVar [true,3 ]); 


e Wykonanie procedury Assign powoduje skojarzenie pliku InpFile ze zbio- 
rem COMPLEX.DOC. 

e Wykonanie procedury Reset powoduje otwarcie pliku InpFile. 

e Wykonanie procedury Read powoduje wprowadzenie z pliku InpFile jednej 
danej i przypisanie jej elementowi ArrVar[true,3] tablicy ArrVar. m 


Procedura Write 
Wywołanie: Write(File Var, VarList) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, a VarList jest listą nazw 
zmiennych. Wymaga się, aby plik FileVar był otwarty. Zabrania się, aby 
jakakolwiek zmienna listy VarList była innego typu niż typ elementów pliku. 
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Wykonanie procedury Write z listą nazw zmiennych jest równoważne wyko- 
naniu ciągu procedur Write z nazwami tych zmiennych. Wykonanie procedury 
Write z nazwą zmiennej powoduje wyprowadzenie do pliku FileVar danej 
przypisanej tej zmiennej. 


Przykład 
type 
ElmType = record 
Re,lm : real 
end; 
var 


OQutFile : file of ElmType; 
ArrVar : array[boolean] of ElmType; 


Assign(O0utFile, COMPLEX.RES'); 
Rewrite(OutFile); 
Write(OutFile,ArrVar[ false ]„ArrVar [true ]); 


e Wykonanie procedury Assign powoduje skojarzenie pliku OutFile ze zbio- 
rem COMPLEX.RES. | 

e Wykonanie procedury Rewrite powoduje otwarcie pliku OutFile. 

e Wykonanie procedury Write powoduje wyprowadzenie do pliku OutFile 
danych przypisanych elementom ArrVar[ false] i ArrVar[true] tablicy ArrVar. 
e Zastąpienie przytoczonej instrukcji Write instrukcją 


Write(OutFile,Arr Var); 
byłoby niepoprawne, ponieważ sama nazwa tablicy nie stanowi wyszczegól- 
nienia jej elementów. [M 


Procedura Seek 
Wywołanie: Seek(FileVar,PosExp) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, a PosExp jest 
wyrażeniem typu integer. Wymaga się, aby plik FileVar był otwarty. Zabrania 
się, aby wartość wyrażenia PosExp wykraczała poza przedział domknięty 
[0 ; FileSize(FileVar)]. 


Wykonanie procedury Seek powoduje ustawienie pliku w takiej pozycji, aby 
najbliższym elementem pliku był element o numerze porządkowym okreś- 
lonym przez wartość wyrażenia PosExp. Jeśli wyrażenie to ma wartość 0, to 
plik zostanie ustawiony w pozycji początkowej, a jeśli ma wartość 
FileSize(FileVar), to zostanie ustawiony w pozycji końcowej. 
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Przykład 
type 
Name = string [5 ]; 
var 
FileVar : file of Name; 
ElmVarl,ElmVar2 : Name; 
Len,Pos : integer; 
begin 
Assign(FileVar, FAMILY); 
Reset(FileVar); 
Len : = FileSize(File Var) — 1; 
for Pos:=Q0 to Len shr 1 do begin 
Seek(FileVar,Pos); 
Read(FileVar,ElmVar1); 
Seek(File Var,Len — Pos); 
Read(FileVar,ElmVar2); 
Seek(FileVar,Pos); 
Write(FileVar,ElmVar2); 
Seek(FileVar,Len — Pos); 
Write(FileVar,ElmVar1) 
end; 
Close(File Var) 
end. 


e Wykonanie przytoczonego programu powoduje odwrócenie porządku ele- 
mentów zbioru FAMILY. 

e Otwarcie pliku FiieVar zrealizowano za pomocą procedury Reset, ponieważ 
użycie procedury Rewrite spowodowałoby utratę zawartości zbioru FAMILY. 0) 


Procedura Close 
Wywołanie: Close(FileVar) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Nie wymaga 
się, aby plik FileVar był otwarty. 


Wykonanie procedury Close powoduje zamknięcie pliku FileVar. Jeśli przed 
wykonaniem tej procedury plik nie był otwarty, to jego stan nie zmienia się. 


Należy nadmienić, że zakończenie wykonywania programu nie implikuje 
domniemanych wywołań procedury Close. 
Przykład 


var 
NewFile : file of boolean; 
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begin 
Assign(NewFile, EMPTY); 
Rewrite(NewFile); 
Close(NewFile) 

end. 


e Wykonanie przytoczonego programu pozostawia w domniemanym kata- 
logu, domniemanej stacji dyskowej, pusty zbiór EMPTY. 

e W przyszłości zbiór ten może być wypełniony elementami typu boolean. 
Procedura Erase 

Wywołanie: Erase(FileVar) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Zaleca się, aby plik 
FileVar nie był otwarty. 


Wykonanie procedury Erase powoduje usunięcie zbioru danych skojarzonego 
z plikiem FileVar. 


Przykład 
var 
KillFile : file of byte; 
begin 
Assign(KillFile, SECRET.DOC)); 
Erase(KillFile) 
end. 


e Wykonanie przytoczonego programu powoduje usunięcie z domniemanego 
katalogu, domniemanej stacji dyskowej, zbioru SECRET.DOC. 

e Operacja dotyczy pliku skojarzonego ze zbiorem danych, ale nie otwartego. 
e Typ elementów pliku KillFile jest bez znaczenia. [m 


Procedura Rename 
Wywołanie: Rename(FileVar,StrExp) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, a StrExp jest wyra- 
żeniem łańcuchowym. Zabrania się, aby plik FileVar był otwarty. 


Wykonanie procedury Rename powoduje zmianę nazwy zbioru danych sko- 
jarzonego z plikiem FileVar na nazwę określoną za pomocą wyrażenia 
łańcuchowego StrExp. Wymaga się, aby ciąg znaków reprezentowany przez 
StrExp był poprawną nazwą zbioru, pozbawioną określenia stacji dyskowej 
oraz katalogu, a ponadto, aby nie był nazwą zbioru już istniejącego. Zabrania 
się, aby plik FileVar był otwarty. 
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Przykład 
var 
RenFile : file of byte; 
begin 
Assign(RenFile, SECRET.DOC'); 
Rename(RenFile, SECRETBAK') 
end. 


e Wykonanie przytoczonego programu powoduje zmianę nazwy zbioru 
SECRET.DOC na SECRET.BAK. 

e Typ elementów pliku Ren File jest bez znaczenia. DJ 
funkcja Eof 

Wywołanie: Eo/f(Filelar) 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Wymaga się, aby plik 
FileVar był otwarty. 


Rezultatem funkcji Eof jest dana o wartości true — jeśli plik FileVar znajduje 
się w pozycji końcowej, albo dana o wartości false — w przeciwnym razie. 


Przykład 

var 
FileVar : file of byte; 

begin 
Assign(FileVar, USELESS.DOC'); 
Rewrite(FileVar); 
Writeln(Eof (FileVar)) 

end. 


e Bezpośrednio po wykonaniu procedury Rewrite plik znajduje się zarówno 
w pozycji początkowej, jak i końcowej. 
e Wykonanie instrukcji 


Writeln(Eof (File Var')) 
powoduje wyprowadzenie napisu TRUE. m 


Funkcja FileSize 

Wywołanie: FileSize(FileVar) 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Wymaga się, aby plik 
FileVar był otwarty. 


Rezultatem funkcji FileSize jest dana typu integer. Wartością tej danej jest 
liczba elementów pliku FileVar. 
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Przykład 

var 
FileVar : file of 2.4; 

begin 
Assign(FileVar, USELESS.DOC'); 
Rewrite(FileVar); 
Writeln(FileSize(FileVar)); 

end. 


e Bezpośrednio po wykonaniu procedury Rewrite plik FileVar jest pusty. 
e Ponieważ plik pusty zawiera O elementów, wykonanie przytoczonego 
programu powoduje wyprowadzenie liczby O. 2 


Funkcja FilePos 
Wywołanie: FilePos(FileVar) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. Wymaga się, aby plik 
FileVar był otwarty. 


Rezultatem funkcji FilePos jest dana typu integer. Wartością tej danej jest 
numer pozycji pliku FileVar. Numerem pozycji początkowej jest 0, a numerem 
pozycji końcowej jest FileSize(File Var). 


Przykład 

var 
FileVar : file of (Red,Green,Blue); 

begin 
Assign(FileVar, COLORS); 
Reset(FileVar); 
Seek(FileSize(FileVar)); 
Writeln(FilePos(FileVar) = 0) 

end. 


e Jeśli zbiór COLORS jest pusty, to wykonanie przytoczonego programu 
spowoduje wyprowadzenie napisu TRUE. 
e W przeciwnym razie nastąpi wyprowadzenie napisu FAISE. [M 


Pliki tekstowe 


W odróżnieniu od pozostałych plików, pliki tekstowe nie składają się z sekwen- 
cji identycznych elementów tego samego typu, lecz składają się z wierszy 
podzielonych na znaki. Każdy wiersz pliku tekstowego jest zakończony parą 
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znaków CR/LF (carriage-return/line-feed). Bezpośrednio po ostatnim wierszu 
pliku występuje znak Ctrl-Z. 


Ponieważ wiersze pliku mogą być różnej długości, przetwarzanie pliku może 
być jedynie sekwencyjne, plik zaś może zostać otwarty tylko do wyprowa- 
dzania (Rewrite) albo tylko do wprowadzania (Reset). W systemie DOS istnieje 
ponadto możliwość otwarcia pliku tekstowego w trybie do rozszerzania 
(Append). W takim przypadku, bezpośrednio po otwarciu, plik zostaje usta- 
wiony w pozycji końcowej i jest traktowany tak, jakby był otwarty do 
wyprowadzenia. 


Opis typu plikowego tekstowego składa się z predefiniowanego identyfikatora 
text. 


Składnia 
opis-typu-plikowego-tekstowego: 
text 
Przykłady 
type 
TextType = text; 
var 


OutFile : TextType; 
InpFile : text; 


e Typ TextType jest związany ze zbiorem sekwencji wierszy podzielonych na 
znaki i zakończonych znakami CR/LF. 
e Nazwy OutFile i InpFile reprezentują pliki tekstowe. [m 


W języku Turbo Pascal komunikowanie się takimi urządzeniami zewnętrznymi 
jak konsole, terminale, drukarki i modemy odbywa się za pomocą plików 
tekstowych. Pliki te stanowią zatem modele fizycznych zbiorów danych 
dostępnych za pomocą tych urządzeń. 


Urządzenia zewnętrzne wymienionych tu typów mają swoje symboliczne 
oznaczenia, składające się z trzyliterowej mnemoniki i znaku : (dwukropek). 


CON: — konsola 


Konsola jest urządzeniem wejściowo-wyjściowym. Elementem wyjściowym 
konsoli jest ekran monitora, a elementem wejściowym — klawiatura. Wpro- 
wadzanie danych z konsoli jest buforowane. Oznacza to, że dane są wpro- 
wadzane z konsoli pełnymi wierszami i dopiero po wprowadzeniu całego 
wiersza, stanowiące go znaki podlegają przetwarzaniu. Ponieważ każdy wiersz 
jest kończony znakiem CR, możliwe jest wprowadzenie z konsoli ciągu 
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znaków, a następnie — ale przed wprowadzeniem znaku CR — poddanie go 
edycji. Edycja może być realizowana za pomocą następujących znaków: 
Ctrl-H: 
Usunięcie znaku znajdującego się z lewej strony kursora i przesunięcie 
kursora o jedną pozycję w lewo. 
Ctrl-X: 
Usunięcie wszystkich znaków znajdujących się z lewej strony kursora 
i przesunięcie kursora do pierwszej kolumny wiersza. 
Ctrl-D: 
Wstawienie na pozycję kursora jednego znaku z poprzedniego wiersza 
i przesunięcie kursora o jedną pozycję w prawo. 
Ctrl-R: 
Wstawienie, począwszy od pozycji kursora, pozostałych znaków 
poprzedniego wiersza i przesunięcie kursora w prawo za ostatni 
wstawiony znak. 
CR, Ctrl-M: 
Zakończenie wprowadzania wiersza i umieszczenie w buforze wej- 
ściowym pary znaków CR/LF. 
Ctrl-Z: 
Zakończenie wprowadzania wiersza i umieszczenie w buforze wej- 
ściowym znaku Ctrl-Z. 


Należy nadmienić, że rozmiar bufora wejściowego konsoli jest określony przez 
predefiniowaną zmienną BufLen. Zarówno maksymalną jak i domniemaną 
wartością tej zmiennej jest 127. Ustalenie nowej wartości zmiennej BufLen jest 
skuteczne jedynie w odniesieniu do najbliższej instrukcji wprowadzania. 
Bezpośrednio po wykonaniu każdej takiej instrukcji zmienna BufLen otrzy- 
muje ponownie wartość 127. 


TRM: — terminal 


Terminal jest urządzeniem wejściowo-wyjściowym. Elementem wyjściowym 
terminala jest ekran monitora, a elementem wejściowym — klawiatura. 
W odróżnieniu od konsoli, wprowadzanie danych z terminala nie jest 
buforowane. Oznacza to, że każdy wprowadzony znak natychmiast podlega 
przetwarzaniu. Jednocześnie ze skierowaniem do przetwarzania znak jest 
wyprowadzany na ekran. Spośród znaków sterujących dotyczy to jednak tylko 
znaku CR, który jest wyprowadzany jako para CR/LF. 


KBD: — klawiatura 


Klawiatura jest urządzeniem wejściowym. Znaki wprowadzane z vrządzenia 
KBD: pochodzą z elementu wejściowego konsoli, nie podlegają buforowaniu 
i nie są wyprowadzane na ekran. 
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LST: — drukarka 


Drukarka jest urządzeniem wyjściowym. Wyprowadzane znaki nie podlegają 
buforowaniu w systemie, ale mogą być buforowane w drukarce. 


AUX: — urządzenie pomocnicze 


Urządzenie pomocnicze jest urządzeniem wejściowym albo wyjściowym. 
W systemie DOS pełni ono funkcję urządzenia COMI:. 


USR: — urządzenie użytkownika 


Urządzenie użytkownika jest urządzeniem programowanym. Umożliwia ono 
ingerencję w proces przesyłania znaków. Jego użycie wiąże się z projekto- 
waniem własnych programów obsługi transmisji znaków. 

Skojarzenie pliku z urządzeniem logicznym może być dokonane za pomocą 
procedury Assign, w której wywołaniu jest podawana nazwa zmiennej plikowej 
oraz wyrażenie łańcuchowe określające nazwę urządzenia logicznego. 


W odróżnieniu od skojarzenia pliku ze zbiorem skojarzenie pliku z urządze- 
niem logicznym pociąga za sobą niejawne otwarcie pliku. Z tego względu 
posłużenie się procedurami Reset i Rewrite jest zbyteczne, a ich wykonanie, 
podobnie jak wykonanie procedury Close, nie ma żadnych skutków. Błędne 
jest natomiast posłużenie się takimi procedurami jak Erase i Rename, gdyż 
można je stosować jedynie w odniesieniu do zbiorów danych w pamięci 
dyskowej. 


Przykład 
var 
Console : text; 


Assign(Console, CON :), 


e Wykonanie procedury Assign spowoduje skojarzenie pliku tekstowego 
Console z urządzeniem logicznym CON :, tj. konsolą, a następnie niejawne 
otwarcie tego pliku. 


e Ponieważ wykonanie procedury Close dotyczącej pliku skojarzonego 
z urządzeniem logicznym nie ma żadnych skutków, zamknięcie rozpatrywa- 
nego pliku tekstowego byłoby możliwe dopiero po wykonaniu innej procedury 


Assign dotyczącej zmiennej Console, np. 
Assign(Console, KBD:'); m 


W celu ułatwienia posługiwania się plikami skojarzonymi z urządzeniami 
logicznymi wprowadzono w Turbo Pascalu szereg predefiniowanych zmien- 
nych plikowych, reprezentujących pliki tekstowe i dokonano niejawnych 
skojarzeń tych plików z wybranymi urządzeniami logicznymi. 
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Jak wynika z tabl. 12.1 z predefiniowanymi nazwami zmiennych plikowych są 
związane ustalone urządzenia logiczne. Wyjątek od tej zasady dotyczy zmien- 
nych plikowych Input i Output, z których każda może reprezentować plik 
skojarzony z urządzeniem CON: albo z urządzeniem TRM.:. 


Tablica 12.1. Skojarzenia plików tekstowych i urządzeń 
logicznych 


Zmienna plikowa Urządzenie logiczne 


CON: albo TRM: 
CON: albo TRM: 


Wybór CON: albo TRM: odbywa się na podstawie dyrektywy kompilatora 
($B+) albo ($B—). Przez domniemanie przyjmuje się £$B + ), kiedy to plik 
reprezentowany przez Input jak i przez Output jest kojarzony z urządzeniem 
CON: W zasięgu dyrektywy ($B—) odbywa się natomiast skojarzenie 
z urządzeniem TRM.:. 


Należy zwrócić uwagę, że pliki reprezentowane przez nazwy wymienionych 
zmiennych plikowych są zawsze otwarte, a operacje na nich dotyczą ustalo- 
nych urządzeń logicznych. 


Przykład 
begin 
Writeln(Con, Hello world') 
end 


e Con jest predefiniowaną zmienną plikową, reprezentującą plik skojarzony 
z konsolą. 

e Wykonanie przytoczonego programu powoduje wyprowadzenie na konsolę 
napisu Hello world. [m 


Operacje na plikach tekstowych 


Jak już wyjaśniono, pliki tekstowe składają się z wierszy podzielonych na 
znaki. Każdy wiersz jest zakończony parą znaków CR/LF, a ostatnim znakiem 
pliku jest Ctrl-Z. Znak Ctrl-Z jest umieszczany w pliku otwartym do 
wyprowadzania lub rozszerzania — w chwili zamykania pliku. 
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Pliki tekstowe mogą być kojarzone ze zbiorami danych albo z urządzeniami 
logicznymi. W pierwszym przypadku przetwarzanie danych zawartych w pliku 
musi być poprzedzone wykonaniem procedury Assign i jednej z procedur 
Reset, Rewrite, Append. Na zakończenie tego przetwarzania powinna być 
wykonana procedura Close. W drugim przypadku, tj. skojarzenia pliku 
z urządzeniem, można posłużyć się predefiniowaną zmienną plikową. W takim 
przypadku zabrania się wykonania procedur Assign, Reset, Rewrite, Close 
dotyczących tej zmiennej, albo też można potraktować urządzenie tak jakby 
było zbiorem danych o nazwie symbolicznej urządzenia, posłużyć się proce- 
durą Assign dla skojarzenia pliku z urządzeniem, a następnie przystapić do 
przetwarzania pliku. 


Procedura Assign 
Wywołanie: Assign(TextVar,StrExp) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text, a StrExp jest 
wyrażeniem łańcuchowym. Wymaga się, aby plik reprezentowany przez 
TextVar nie był otwarty. Zabrania się, aby TextVar było nazwą predefiniowanej 
zmiennej plikowej. 


Wykonanie procedury Assign powoduje skojarzenie pliku TextVar ze zbiorem 
danych albo z urządzeniem logicznym o nazwie określonej przez StrExp. 


Przykład 
var 
Device : text; 


Assign(Device, CON :'); 


e Nazwa zmiennej plikowej Device reprezentuje plik tekstowy. 
e Wykonanie procedury Assign powoduje skojarzenie pliku Device z konsolą. 
e Wykonanie procedury Assign powoduje otwarcie pliku Device. u 


Procedura Reset 
Wywołanie: Reset(TextVar) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Wymaga się, 
aby przed wywołaniem procedury Reset plik TextVar był skojarzony z ist- 
niejącym zbiorem danych albo z urządzeniem logicznym. Zabrania się, aby 
TextVar było nazwą predefiniowanej zmiennej plikowej. 


Wykonanie procedury Reset powoduje otwarcie pliku TextVar. Jeśli plik 
TextVar jest skojarzony z urządzeniem logicznym, to jest już otwarty i użycie 
procedury Reset nie ma żadnych skutków. 
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Przykład 
var 
InpFile : text; 


Assign(InpFile, OLDBOOK'); 

Reset(InpFile); 
e Wykonanie procedury Assign powoduje skojarzenie pliku tekstowego 
InpFile ze zbiorem OLDBOOK. 
e Wykonanie procedury Reset powoduje otwarcie pliku tekstowego InpFile 
w trybie do wprowadzania. 


Procedura Rewrite 


Wywołanie: Rewrite( TextVar) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Wymaga się, 
aby przed wywołaniem procedury Rewrite plik TextVar był skojarzony ze 
zbiorem danych albo z urządzeniem logicznym. Zabrania się, aby TextVar było 
nazwą predefiniowanej zmiennej plikowej. 


Wykonanie procedury Rewrite powoduje otwarcie pliku TextVar w trybie do 
wprowadzania. Jeśli plik TextVar jest skojarzony z urządzeniem logicznym, to 
jest już otwarty i użycie procedury Rewrite nie ma żadnych skutków. Jeśli plik 
TextVar jest skojarzony ze zbiorem danych, a zbiór ten nie istnieje, to zostanie 
utworzony. Jeśli istnieje, to zostanie usunięty i utworzony ponownie. W obu 
przypadkach zostanie utworzony zbiór pusty. 


Przykład 
var 
OutFile : text; 


Assign(OutFile, NEWBOOK'); 
Rewrite(OutFile); 


e Wykonanie procedury Assign powoduje skojarzenie pliku tekstowego Out- 
File ze zbiorem NEWBOOK. 

e Wykonanie procedury Rewrite powoduje otwarcie pliku OutFile w trybie do 
wyprowadzania. Po dokonaniu otwarcia rozpatrywany plik jest pusty. © 


Procedura Append 


Wywołanie: Append(TextVar) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Wymaga się, 
aby przed wywołaniem procedury Append plik TextVar był skojarzony z ist- 
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niejącym już zbiorem danych albo z urządzeniem logicznym. Zabrania się, aby 
TextVar było nazwą predefiniowanej zmiennej plikowej. 


Wykonanie procedury Append powoduje otwarcie pliku TextVar. Jeśli plik 
reprezentowany przez TextVar jest skojarzony z urządzeniem logicznym, to 
jest już otwarty i użycie procedury Append nie ma żadnych skutków. Jeśli plik 
TextVar jest skojarzony ze zbiorem danych, to zostanie otwarty i ustawiony 
w pozycji końcowej. 


Przykład 
var 
Extend : text; 


Assign(Extend, BOOK'); 
Append(Extend); 


a Wykonanie procedury Assign powoduje skojarzenie pliku tekstowego Ex- 
tend ze zbiorem BOOK. 

a Wykonanie procedury Append powoduje otwarcie pliku Extend w trybie do 
rozszerzania. m 


Procedura Read 
Wywołanie: Read(TextVar,VarList) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text, a VarList jest 
nazwą zmiennej albo listą nazw zmiennych typu char, string, integer lub real. 
Jeśli TextVar jest nazwą Input, to wywołanie może zostać uproszczone do 
Read(VarList) Jeśli wywołanie z jawną albo domniemaną nazwą Input 
znajduje się w zasięgu dyrektywy /$B +), to jest traktowane tak, jakby TextVar 
było nazwą Con. Jeśli znajduje się w zasięgu dyrektywy ($B—), to jest 
traktowane tak, jakby TextVar było nazwą Trm. W każdym przypadku 
wymaga się, aby plik reprezentowany przez zmienną TextVar był otwarty. 


Wykonanie procedury Read powoduje wprowadzenie ciągu znaków z pliku 
TextVar, zinterpretowanie ich jako umownych zapisów wartości danych, 
a następnie przypisanie danych o tych wartościach zmiennym reprezen- 
towanym przez VarList. 


Należy nadmienić, że jeśli wprowadzanie dotyczy urządzenia logicznego 
CON:, to każde wykonanie procedury Read powoduje wprowadzenie nowego 
wiersza tekstu, i to nawet wtedy, gdy w buforze konsoli pozostają nie 
wprowadzone jeszcze znaki. W takim przypadku, interpretowanie znaków 
bufora następuje dopiero po zakończeniu wiersza znakiem CR, a ewentualne 
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wcześniejsze wprowadzenie znaku Ctrl-Z jest ignorowane. Znak taki jest 
zawsze umieszczany na końcu bufora, ale dopiero po wprowadzeniu znaku CR. 


Sposób interpretowania znaków pliku TextVar zależy od typu zmiennych 
VarList. 


Dla zmiennych typu char: 
Wprowadzany jest jeden znak i przypisywany zmiennej. 

Dla zmiennych typu string: 
Wprowadzany jest najdłuższy dopuszczalny ciąg znaków i przypisy- 
wany zmiennej. Liczba wprowadzonych znaków nie przekracza mak- 
symalnego rozmiaru zmiennej łańcuchowej, ani nie jest większa niż 
liczba znaków bieżącego wiersza. 

Dla zmiennych typu integer: 
Wprowadzany jest ciąg znaków mający postać liczby caikowitej, po 
której następuje jeden ze znaków: spacja, tabulacja, CR albo Ctrl-Z. 
Znaki spacji, tabułacji, CR i LF poprzedzające wspomnianą liczbę są 
ignorowane. Następnie dana o wartości wprowadzonej liczby zostaje 
przypisana kolejnej zmiennej VarList. Jeśli wprowadzony ciąg znaków 
ma inną postać niż wynika to z opisu, powstaje błąd wykonania 
operacji wejścia/wyjścia. 

Dla zmiennych typu real: 
Wprowadzany jest ciąg znaków mający postać liczby rzeczywistej, po 
której następuje jeden ze znaków: spacja, tabulacja, CR albo Ctrl-Z. 
Znaki spacji, tabulacji, CR i LF poprzedzające liczbę są ignorowane. 
Następnie dana o wartości wprowadzonej liczby zostaje przypisana 
kolejnej zmiennej VarList. Jeśli wprowadzony ciąg znaków ma inną 
postać niż wynika to z opisu, powstaje błąd wykonania operacji 
wejścia/wyjścia. 


Przykład 

var 
IntVar : integer; 
FixVar : real; 
TextVar : text; 
Terl,Ter2 : char; 
Str : string[8]; 

begin 
Assign(TextVar,ONELINE.DOC'); 
Reset(TextVar); 
Read(TextVar,IntVar,Ter1,FixVar,Ter2,Str); 


end 
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e Jeśli przyjąć, że pierwszym wierszem tekstu zawartym w zbiorze 
ONELINE.DOC jest ciąg 


12—13.8 Izabela 
to zmiennej IntVar zostanie przypisana dana o wartości 12, zmiennej FixVar 
dana o wartości —13.8, a zmiennej Str dana o wartości Izabela. 
e Każdej ze zmiennych 7erl i Ter2 zostanie przypisana spacja. Oznacza to, że 
znak kończący liczbę podlega podwójnej interpretacji, jako ostatni znak zapisu 
liczby i jako pierwszy znak ciągu następującego po liczbie. m 


Jeśli podczas wykonywania procedury Read plik znajdzie się w pozycji 
końcowej, a nie wszystkim zmiennym VarList zostały już przypisane dane, to 
każdej zmiennej typu char zostanie przypisany znak Ctrl-Z, każdej zmiennej 
typu string zostanie przypisany pusty ciąg znaków, a zmiennym typu integer 
1 real nie zostaną przypisane żadne dane. 


Przykład 

var 
IntVar : integer; 
FixVar : real; 
TlextVar : text; 
Terl,Ter2 : char; 
Śtr : string[4]; 

begin 
IntVar:= —44; 
FixVar:= —44; 
Str:= janb'; 
Terl:= "x; 
Ter2:=y; 
Assign(TextVar, SHORT.DOC'); 
Reset(TextVar); 
Read(TextVar,IntVar, Terl,FixVar,Ter2,Str); 


end. 


e Jeśli przyjąć, że zbiór SHORT. DOC składa się ze znaków: 1, 3, spacja, CR, 
LF, Ctrl-Z, to po wykonaniu instrukcji Read zmienna IntVar ma wartość 13, 
zmienna FixVar ma wartość —44.0, zmienna Terl ma wartość 432 (spacja), 
zmienna T7Ter2 ma wartość 426, (Ctrl-Z), a zmienna Str ma wartość ”. 


Należy nadmienić, że jeśli plik jest skojarzony z konsolą, to na końcu każdego 
wprowadzonego wiersza jest umieszczany znak Ctrl-Z. Ma to taki skutek, 
jakby przed końcem każdego wiersza plik znajdował się w pozycji końcowej. 
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Przykład 

var 
IntVar : integer; 
StrVar : string[ 3]; 
ChrVar : char; 

begin 
IntVar:= —2; 
StrVar:= jan; 
ChrVar:= b': 
Read(IntVar,StrVar,Chr Var); 


end. 


e Wywołanie procedury Read jest interpretowane tak jak wywołanie 
Read(Input,IntVar,StrVar,ChrVar); 


e Ponieważ wymienione wywołanie znajduje się w zasięgu domniemanej 
dyrektywy ($B+), jest interpretowane tak jak wywołanie 


Read(Con,IntVar,Str Var,Chr Var); 


e Jeśli podczas wykonywania procedury Read zostanie wprowadzony z kon- 
soli tylko jeden znak CR, to spowoduje to zakończenie wykonywania tej 
instrukcji. W tym momencie zmienna IntVar będzie miała wartość —2, 
zmienna StrVar będzie miała wartość ”, a zmienna ChrVar będzie miała wartość 
4:26 (Ctrl-Z). 


Procedura Readln 


Wywołanie: Readln(TextVar) 
Readln(TextVar, VarList) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text, a VarList jest 
listą nazw zmiennych typu char, string, integer lub real. Jeśli TextVar jest nazwą 
Input, to wywołanie w pierwszej postaci może być uproszczone do Readln, 
a w drugiej do Readln(VarList). 


Wywołanie procedury Readln w postaci Readln(TextVar) powoduje wprowa- 
dzenie i zignorowanie ciągu znaków pliku aż do CR/LF włącznie. Jeśli plik jest 
skojarzony z urządzeniem logicznym, to są pomijane znaki tylko do CR 
włącznie. Jeśli TextVar reprezentuje konsolę, to na ekran monitora zostaną 
wyprowadzone znaki CR/LF. Natomiast wywołanie tej procedury w postaci 


Readln(TextVar,VarList) 
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jest równoważne parze wywołań 
Read(TextVar,VarList); Readln(TextVar) 


i z tego powodu nie wymaga dodatkowych wyjaśnień. 


Przykład 
var 
Count : integer; 
Source : text; 
Line : string[128]; 
begin 
Assign(Source, VOLUME.DOC'); 
Reset(Source); 
Count := 0; 
while not Eof (Source) do begin 
Readln(Source,Line); 
Count := Count + 1 
end; 
Writeln(Count) 
end 


e Wykonanie przytoczonego programu powoduje wyznaczenie liczby wierszy 
zbioru danych VOLUME.DOC. m 


Procedura Write 
Wywołanie: Write(TextVar,ExpList) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text, a ExpList jest 
listą wyrażeń typu char, string, integer, real albo boolean. Bezpośrednio po 
każdym z wymienionych wyrażeń może wystąpić kwalifikator o postaci :m, 
a po wyrażeniu typu real także kwalifikator o postaci :m:n, w którym min są 
wyrażeniami typu integer. Jeśli TextVar jest nazwą Output, to wywołanie może 
zostać uproszczone do Write(ExpList). Wywołanie z jawną albo domniemaną 
nazwą Output jest traktowane tak, jakby TextVar było nazwą Con (lub 
równoważną jej w danym kontekście nazwą Tim). W każdym przypadku 
wymaga się, aby plik TextVar był otwarty. 

Wykonanie procedury Write powoduje wprowadzenie do pliku TextVar, ciągu 
znaków składającego się z umownych zapisów wartości danych reprezen- 
towanych przez wyrażenia listy ExpList. 


Sposób tworzenia znaków wspomnianego ciągu zależy od typu wyrażeń 
ElmList oraz od wartości kwalifikatorów m i n. 
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Dla wyrażeń typu char: 
Wyprowadzany jest znak reprezentowany przez wyrażenie. Jeśli po- 
służono się kwalifikatorem m, a m>l, to znak ten zostanie poprze- 
dzony m — 1 spacjami. 

Dla wyrażeń typu string: 
Wyprowadzany jest ciąg znaków reprezentowany przez wyrażenie. 
Jeśli posłużono się kwalifikatorem m, a m jest większe niż liczba 
znaków I tego ciągu, to ciąg ten zostanie poprzedzony m — l spacjami. 

Dla wyrażeń typu integer: 
Wyprowadzany jest ciąg znaków o postaci najkrótszego literału 
reprezentującego wartość wyrażenia. Jeśli posłużono się kwalifika- 
torem m, a m jest większe niż liczba znaków I wspomnianego literału, 
to ciąg ten zostanie poprzedzony m—l spacjami. 

Dla wyrażeń typu real: 
Wyprowadzany jest ciąg znaków o postaci bsd.ddddddddddEsdd rep- 
rezentujący wartość wyrażenia. W ciągu tym b jest spacją, a pierwsze 
s jest znakiem przedstawianym jako spacja dla wyrażenia o wartości 
nieujemnej, a jako znak — (minus) dla wyrażenia o wartości ujemnej. 
Każde d reprezentuje w tym ciągu cyfrę dziesiętną, a drugie s jest 
znakiem + (plus) albo — (minus). Jeśli posłużono się kwalifikatorem 
m, a m>18, to przedstawiony ciąg znaków zostanie dodatkowo 
poprzedzony m — 18 spacjami. Jeśli m = 18, to zostanie wyprowadzony 
ciąg wzorcowy podany na początku opisu, jeśli natomiast m<18, to 
wyprowadzony ciąg zostanie skrócony do m znaków, pochodzących 
z ciągu wzorcowego przez odrzucenie z niego w pierwszej kolejności 
spacji wiodących, a następnie końcowych cyfr mantysy, ale z za- 
okrągleniem. Jeśli wartość m jest taka, że wymagałoby to pozosta- 
wienia mniej niż 2 cyfr mantysy, poprzestaje się na odrzuceniu cyfry 
trzeciej i następnych, także z zaokrągleniem. Jeśli posłużono się 
kwalifikatorem o postaci :1m:n, to jest wyprowadzany ciąg znaków 
mający postać literału rzeczywistego bez wykładnika, z n cyframi 
ułamkowymi, wyrównanego prawostronnie w ciągu o długości m zna- 
ków. Jeśli wspomniany literał nie da się przedstawić za pomocą ciągu 
o tej liczbie znaków, to m zostanie niejawnie zwiększone o tyle, aby 
było to wykonalne. Należy przy tym uwzględnić, że jeśli n = 0, to 
literał jest wyprowadzany również bez części ułamkowej i kropki, 
a jeśli n nie należy do przedziału domkniętego [0 ; 24], to kwalifi- 
kator :m:n jest traktowany tak jak uprzednio opisany kwalifikator : m. 

Dla wyrażeń typu boolean: 
Wyprowadzany jest ciąg znaków o postaci TRUE albo FAISE, 
reprezentujący wartość wyrażenia. Jeśli posłużono się kwalifikatorem 
m, a m jest większe niż liczba I znaków tego ciągu, to ciąg zostanie 
poprzedzony m—l spacjami. 
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Przykłady 
(Symbol b oznacza spację.) 
Wyrażenie Ciąg wyprowadzany 
J j 
PJ:2 bj 
-jan' jan 
jan” : 4 bjan 
44 44 
—44 —44 
44 : 4 bb44 
23.5 bb2.3500000000E + 01 
23.456789 :10 2.3457E +01 
23.456789 :6 2.3E+01 
23.456789 :6:2 b23.46 
— 23.456789 :6:0 bbb — 23 
23.456789 :6:—2 2.3E+01 


e Jak wynika z przykładów, zaokrąglenie jest dokonywane na podstawie 
najbardziej znaczącej cyfry odrzucanej. m 


Procedura Wiiteln 


Wywołanie: Writeln( Text Var) 
Writeln(TextVar,ExpList) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text, a ExpList jest 
listą nazw zmiennych typu char, string, integer, real lub boolean. Bezpośrednio 
po każdym z wymienionych wyrażeń może wystąpić kwalifikator o postaci : m, 
a po wyrażeniu typu real także kwalifikator o postaci :m:n, gdzie m i n są 
wyrażeniami typu integer. Jeśli TextVar jest nazwą Output, to wywołanie 
w pierwszej postaci może być uproszczone do Writeln, a w drugiej do 
Writeln(ExpList). 


Wywołanie procedury Wkiteln w postaci Writeln(TextVar) powoduje wypro- 
wadzenie do pliku TextVar pary znaków CR/LF. Natomiast wywołanie tej 
procedury w postaci 


Writeln(TextVar,ExpList) 


jest równoważne parze wywołań 
Write(TextVar,ExpList); Writeln(TextVar); 


l z tego powodu nie wymaga dodatkowych wyjaśnień. 
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Przykład 
begin 
Writeln( false); 
Writeln; 
Writeln(true) 
end. 


e Wykonanie przytoczonego programu powoduje wyprowadzenie na konsolę 
3 wierszy tekstu. 


e Drugi z wyprowadzonych wierszy jest pusty. 


e Ogółem zostanie wyprowadzonych 15 znaków, w tym napisy FALSE 
1 TRUE oraz dwie pary znaków CR/LF. m 


Procedura Close 
Wywołanie: Close(TextVar) 


Przyjmuje się, że TextVar jest nazwą znmiennej plikowej typu text. Zabrania 
się, aby TextVar było nazwą predefiniowanej zmiennej plikowej. 


Wywołanie procedury Close powoduje zamknięcie pliku TextVar. 


Przykład 

var 
Output : text; 

begin 
Assign(OQutput,JB.DOC'); 
Rewrite(Output); 
Writeln(Output, jasio'); 
Close(Output) 

end. 


e Wobec jawnej deklaracji nazwa Output nie jest nazwą predefiniowanej 
zmiennej plikowej, więc wywołanie procedury Assign 1 Rewrite jest poprawne 
i niezbędne. 

e Wykonanie przytoczonego programu powoduje utworzenie zbioru zawie- 
rającego 8 znaków. 

e Wywołanie procedury Close powoduje wyprowadzenie znaku Ctrl-Z oraz 
wykonanie czynności kończących utworzenie zbioru JB.DOC zawierającego 
ciąg znaków: jasio CR LF Ctrl-Z. [m 


Funkcja Eof 
Wywołanie: Eof (TextVar) 
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Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Jeśli TextVar 
jest nazwą Input, to wywołanie może być uproszczone do Eof. 


Wywołanie funkcji Eof może dotyczyć zarówno pliku skojarzonego ze zbiorem 
danych, jak i pliku skojarzonego z urządzeniem logicznym. W obu przypad- 
kach rezultatem funkcji jest dana typu boolean o wartości true albo false. 


Jeśli plik jest skojarzony ze zbiorem danych, to rezultatem funkcji Eof jest 
dana o wartości true — jeśli plik znajduje się w pozycji przed znakiem Ctrl-Z 
albo w pozycji końcowej. W przeciwnym razie rezultatem tej funkcji jest dana 
o wartości false. 


Jeśli plik jest skojarzony z urządzeniem logicznym, to rezultatem funkcji Eof 
jest dana o wartości true — jeśli ostatnim zinterpretowanym znakiem był 
Ctrl-Z. W przeciwnym razie rezultatem tej funkcji jest dana o wartości false. 


Przykład 
var 
ChrVar : char; 
begin 
Read(Chr Var); 
Writeln(Eof ) 
end. 


e Jesli podczas wykonywania przytoczonego programu zostaną wprowadzone 
z konsoli znaki Ctrl-Z i CR, to nastąpi wyprowadzenie napisu FALSE. 

e Stanie się tak dlatego, że znak Ctrl-Z zostanie pominięty, a więc rezultatem 
funkcji Eof będzie dana o wartości false. m 


Funkcja Eoln 


Wywołanie: Eoln(TextVar) 
Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Jeśli TextVar 
jest nazwą Input, to wywołanie może zostać uproszczone do Eoln. 


Wywołanie funkcji Eoln może dotyczyć zarówno pliku skojarzonego ze 
zbiorem danych, jak i pliku skojarzonego z urządzeniem logicznym. W obu 
przypadkach rezultatem funkcji jest dana typu boolean o wartości true albo 
false. 


Jeśli plik jest skojarzony ze zbiorem danych, to rezultatem funkcji Eoln jest 
dana o wartości true — jeśli plik znajduje się w pozycji przed znakiem CR, albo 
gdy rezultatem funkcji Eof jest dana o wartości true. W przeciwnym razie 
rezultatem funkcji Eoln jest dana o wartości false. 


Jeśli plik jest skojarzony z urządzeniem logicznym, to rezultatem funkcji Eoln 
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jest dana o wartości true — jeśli ostatnim zinterpretowanym znakiem był CR, 
albo gdy rezultatem funkcji Eof jest dana o wartości true. W przeciwnym razie 
rezultatem funkcji Eoln jest dana o wartości false. 


Przykład 
var 
ChrVar : char; 
TxtVar : text; 
begin 
Assign(TxtVar, STRANGE.DOC'); 
Reset(TxtVar); 
while not Eof (TxtVar) do begin 
Writeln(Eoln(TxtVar)); 
Read(TxtVar,Chr Var) 
end 
end. 


e Jeśli zbiór STRANGE.DOC składa się z jednego wiersza pustego, tj. ze 
znaków CR, LF, Ctrl-Z, to wykonanie przytoczonego programu powoduje 
wyprowadzenie napisu 


TRUE 
FALSE 


e Wynika stąd, że w pozycji przed znakiem LF rezultatem funkcji Eoln jest 
dana o wartości false. 


Funkcja SeekEof 
Wywołanie: SeekEof (TextVar) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Jeśli TextVar 
jest nazwą Input, to wywołanie może zostać uproszczone do SeekEojf. 


Wywołanie funkcji SeekEof jest zbliżone do wywołania funkcji Eof. Bez- 
pośrednio po pominięciu najbliższych spacji, tabulacji oraz znaków CR i LF 
jest udostępniany taki sam rezultat jak dla funkcji Eof. 


Przykład 

var 
TxtVar : text; 

begin 
Assign(TxtVar, STRANGE.DOC'); 
Reset(TxtVar); 
Writeln(SeekEof (TxtVar)) 

end. 
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e Jeśli zbiór STRANGE.DOC składa się z jednego wiersza pustego to 
wykonanie przytoczonego programu powoduje wyprowadzenie napisu 
TRUE. m 


Funkcja SeekEoln 
Wywołanie: SeekEoln(TextVar) 


Przyjmuje się, że TextVar jest nazwą zmiennej plikowej typu text. Jeśli TextVar 
jest nazwą Input, to wywołanie może zostać uproszczone do SeekEoln. 


Wykonanie funkcji SeekEoln jest zbliżone do wykonania funkcji Eoln. Bez- 
pośrednio po minięciu najbliższych spacji i tabulacji jest udostępniany taki sam 
rezultat jak dla funkcji Eoln. 


Przykład 
var 
TxtVar : text; 
Tally : integer; 
ChrVar : char; 
begin 
Tally : = 0; 
Assign(TxtVar, TEXT. DOC); 
Reset(TxtVar); 
while not SeekEof (TxtVar) do begin 
while not SeekEoln(TxtVar) do begin 
Tally:= Tally + 1; 
Read(TxtVar,Chr Var) 
end 
end; 
Writeln( Tally) 
end. 


e Wykonanie przytoczonego programu powoduje wyznaczenie liczby znaków 
zbioru TEXT. DOC. 
e Spacje, tabulacje, znaki CR, LF i Ctrl-Z kończące wiersze są ignorowane. nm 


Pliki blokowe 


Pliki blokowe umożliwiają wykonywanie niebuforowanych operacji wprowa- 
dzania/wyprowadzania, dokonywanych bezpośrednio między zmiennymi pro- 
gramu a zewnętrzną pamięcią dyskową. Przyjmuje się, że elementami pliku 
blokowego są bloki po 128 bajtów. Plik blokowy może reprezentować dowolny 
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zbiór dyskowy. Z tego względu operacje takie jak np. Erase lub Rename mogą 
być wykonywane za pośrednictwem plików blokowych. 


Opis typu pliku blokowego składa się ze słowa kluczowego file. 


Składnia 
opis-typu-plikowego-blokowego: 
file 


Przykład 

var 
DiskFile : file; 
FileName : string[40]; 

begin 
Write(FileName :— '); 
Readln(FileName); 
Assign(DiskF'ile,FileName); 
Erase(DiskFile) 

end. 


e Wykonanie przytoczonego programu powoduje usunięcie dowolnego zbioru 
dyskowego o nazwie wprowadzonej z klawiatury konsoli. 
e Typ elementów zbioru jest bez znaczenia. [m 


Wykonywanie operacji wprowadzania/wyprowadzania na plikach blokowych 
jest realizowane za pomocą procedur BlockRead i BlockWrite. Zastępują one 
odpowiednio procedury typem elementów. Pozostałe operacje jak Assign, 


Reset, Rewrite, Close, Seek i Eof mają taką samą interpretację jak dla plików 
elementowych. 


Procedura BlockRead 


Wywołanie: BlockRead(FileVar,Buffjer,Count,Reply) 
BlockRead(FileVar,Buffer,Count) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej reprezentującą plik 
blokowy, Buffer jest nazwą dowolnej zmiennej programu, Count jest wyraże- 
niem typu integer, a Reply jest nazwą zmiennej typu integer. 


Wykonanie procedury BlockRead powoduje wprowadzenie z pliku FileVar, do 
obszaru pamięci operacyjnej zajmowanego przez zmienną Buffer, Count 
bloków o rozmiarze 128 bajtów każdy. Jeśli posłużono się wywołaniem 
zawierającym argument Reply, to zmiennej reprezentowanej przez ten ar- 
gument zostanie przypisana dana określająca liczbę faktycznie wprowadzo- 
nych bloków. Jeśli liczba ta jest mniejsza niż Count, to oznacza to, że plik 
znajduje się w pozycji końcowej. 
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Procedura BlockWiite 


Wywołanie: BlockWrite(FileVar,Buffer,Count,Reply) 
BlockWrite(FileVar,Bufjer,Count) 


Przyjmuje się, że FileVar jest nazwą zmiennej plikowej reprezentującą plik bez 
typu elementów, Buffer jest nazwą dowolnej zmiennej programu, Count jest 
wyrażeniem typu integer, a Reply jest nazwą zmiennej typu integer. 


Wykonanie procedury BlockWrite powoduje wyprowadzenie do pliku FileVar, 
z obszaru pamięci zajmowanego przez zmienną Buffer, Count bloków o roz- 
miarze 128 bajtów każdy. Jeśli posłużono się wywołaniem zawierającym Reply, 
to zmiennej reprezentowanej przez ten argument zostanie przypisana dana 
określająca liczbę faktycznie wyprowadzonych bloków. Jeśli liczba ta jest 
mniejsza niż Count, to oznacza to, że wykonanie procedury nie przebiegło 
pomyślnie. 


Przykład 
Program Copy; 
var 
Śrc,lrg : tile; 
Buffer : array[0..255,boolean] of byte; 
Source,Target : string[40]; 
Reply : integer; 


begin 
Write( Source :— '); 
Readln(Source); 
Write( Target :— ') 
Readln( Target); 


Assign(Src,Source); 

Assign(Trg, Target); 

Reset(ŚSrc); 

Rewrite( Ttg); 

repeat 
BlockRead(Śrc,Buffer,4,Reply); 
BlockWrite(Trg,Bufjer,4,Reply) 

until Reply < 4; 

Close(Src); 

Close(Trg) 

end. 


e Wykonanie przytoczonego programu powoduje skopiowanie zbioru danych 
o dowolnym typie elementów. [im 
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Kontrolowanie poprawności operacji wejścia/wyjścia 


Sposób kontrolowania poprawności operacji wejścia/wyjścia jest uzależniony 
od sposobu skompilowania programu. W zakresie przyjmowanej przez dom- 
niemanie dyrektywy ($I1+), po każdej operacji wejścia/wyjścia jest kontro- 
lowana jej poprawność. Jeśli zostanie wykryty błąd, to wykonywanie programu 
jest przerywane, a na konsolę jest wyprowadzany komunikat o rozpoznanym 
błędzie. W zakresie dyrektywy ($I—) rozpoznanie błędu nie powoduje 
wstrzymania wykonywania programu, a jedynie wstrzymanie wykonywania 
dalszych operacji wejścia/wyjścia. Stan taki utrzymuje się aż do momentu 
wywołania funkcji standardowej IOresult, udostępniającej daną typu integer. 
Jeśli rezultatem wywołania tej funkcji jest dana o wartości O, to oznacza to, że 
dotychczasowe operacje wejścia/wyjścia zostały wykonane poprawnie. Jesli 
rezultatem jest dana o wartości różnej od zera, to wartość ta określa rodzaj 
rozpoznanego błędu. Wykaz błędów operacji wejścia/wyjścia przytoczono 
w dodatku C. 


Przykład 
program Delete; 
var 
FileVar : file; 
FileName : string[40]; 
Flag : boolean; 
begin 
Write( FileName := '); 
Readln(FileName); 
Assign(FileVar,FileName); 
($I—) Erase (FileVar); ($1+) 
if not (IOresult = 0) then 
Writeln(File + FileName+ did not exist'); 
end. 


e Wykonanie przytoczonego programu powoduje usunięcie zbioru danych 
o nazwie wprowadzonej z konsoli. 

e Jeśli podano nazwę zbioru nie istniejącego, to zostanie wyprowadzony 
komunikat, że zbiór ten nie istniał. 

e Gdyby z programu usunięto dyrektywy kompilatora, a zbiór by nie istniał, 
to wykonywanie programu zostałoby przerwane na skutek wystąpienia błędu 
operacji Erase dotyczącej zbioru, który nie istnieje. m 


13. Typy wskazujące 


Każdy z typów wskazujących jest typem prostym. Wartościami danych 
wskazujących są wskazania danych. 


Opis typu wskazującego składa się ze znaku *(caret), bezpośrednio po którym 
występuje nazwa typu. Nie wymaga się, aby ta nazwa była już zdefiniowana. 
Jest to jedyny wyjątek od wymagania powoływania się na obiekty uprzednio 
zdefiniowane. 


Składnia 
opis-typu-wskazującego: 
A nazwa-typu-bazowego 
nazwa-typu: 
identyfikator 


Przykłady 
type 
EmployeePtr = * EmployeeData; 
EmployeeData = record 
Name : string[30]; 
Salary : real 
end; 
var 
EmployeeRef : EmployeePtr; 
IntRef : "integer; 


e Typ EmployeePtr jest związany ze zbiorem wskazań zmiennych typu 
EmployeeData. 

e EmployeeRef jest nazwą zmiennej wskazującej. Zmiennej tej mogą być 
przypisywane dane wskazujące zmienne typu EmployeeData. 
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e IntRef jest nazwą zmiennej wskazującej. Zmiennej tej mogą być przypi- 
sywane dane wskazujące zmienne typu integer. [m 


Poza typami i zmiennymi wskazującymi występuje w Turbo Pascalu wskazanie 
puste reprezentowane przez słowo kluczowe nil. Typ tego wskazania jest 
zgodny z dowolnym innym typem wskazującym. Nazwy zmiennych wskazują- 
cych oraz wskazanie puste mogą występować w relacjach = (równe) i < > (nie 
równe). W instrukcji przypisania wymaga się zgodności typów lewej i prawej 
strony. Zgodność ta ma miejsce tylko wtedy, gdy prawa strona jest słowem 
kluczowym nil oraz wtedy, gdy prawa strona reprezentuje daną wskazującą 
takiego samego typu jak dane, które mogą być przypisywane zmiennej 
występującej z lewej strony dwuznaku przypisania. 


Przykład 
type 
Days = (Mon,Tie,Wed, Thu,Fri,Sat,Sun); 
Week = Mon..Sun; 
var 
Dayl : © Days; 
Day2,Day3 : * Week; 


e W zasięgu przytoczonych definicji i deklaracji poprawne są m.in. przy- 
pisania 
Dayl := nil; 
Day2:= Day3 
ale nie jest poprawne przypisanie 
Day2:= Dayl; 
ponieważ zmienne Day2 i Dayl są różnych typów. [m 


Zmienne wskazujące mogą zostać wykorzystane do dynamicznego zarządzania 
pamięcią operacyjną. Pomocne są w tym procedury do przydzielania 
i zwalniania tej pamięci. 


Procedura New 
Wywołanie: New(PtrVar) 


Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej. Wykonanie pro- 
cedury New powoduje utworzenie zmiennej takiego samego typu, jakiego są 
zmienne, które mogą być wskazywane przez danc przypisywane zmiennej 
PtrVar. Po wykonaniu tej czynności zmiennej PtrVar zostaje przypisana dana 
wskazująca właśnie utworzoną zmienną. Wymieniona tu zmienna zostaje 
utworzona w obszarze pamięci operacyjnej nazywanym stertą i może być 
traktowana tak, jak dowolna inna zmienna jej typu. 
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Przykład 
type 
Matrix = array[boolean] of array[boolean] of real; 
var 
MatrixPtr : © Matrix; 
begin 
New(MatrixPtr); 
MatrixPtr" [true] [true] := 23.5; 
end. 


e Wykonanie procedury New powoduje utworzenie na stercie zmiennej typu 
Matrix, a następnie przypisanie zmiennej wskazującej MatrixPtr, danej wska- 
zującej tę zmienną. 

e Wykonanie instrukcji przypisania powoduje przypisanie narożnikowemu 
elementowi tablicy MatrixPtr* danej o wartości 23.5. 

e Należy zauważyć, że napis MatrixPtr jest nazwą zmiennej wskazującej, 
a napis MatrixPtr" jest nazwą obiektu wskazywanego przez tę zmienną. 


Procedura Dispose 
Wywołanie: Dispose(PtrVar) 
Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej. 


Wykonanie procedury Dispose powoduje eliminację zmiennej wskazywanej 
przez daną przypisaną zmiennej PtrVar. Wymaga się, aby eliminowana 
zmienna była uprzednio utworzona za pomocą procedury New. Obszar 
pamięci operacyjnej, zajmowany przez eliminowaną zmienną zostaje zwrócony 
do sterty i może być wykorzystany do tworzenia innych zmiennych. 


Przykład 

var 
IntRef : "integer; 

begin 
New(IntRef ); 
IntRef * := 20; 
Dispose(IntRej ); 
New(IntRe/ ); 
IntRef * := 30; 
Writeln(IntRef *) 

end. 


e Wykonanie przytoczonego programu powoduje wyprowadzenie napisu 30. 
e Gdyby z programu usunięto drugą instrukcję przypisania, to byłby on 
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błędny, ponieważ w momencie wykonywania procedury Writeln zmiennej 
IntRef nie byłaby przypisana żadna dana. m 
Procedura Mark 

Wywołanie: Mark(PtrVar) 

Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej dowolnego typu. 
Wykonanie procedury Mark powoduje przypisanie zmiennej PtrVar wskazania 
bieżącego szczytu sterty. 

Procedura Release 

Wywołanie: Release(PtrVar) 

Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej dowolnego typu. 


Wykonanie procedury Release powoduje usunięcie ze sterty zmiennej wskazy- 
wanej przez PtrVar i wszystkich zmiennych następujących po niej na stercie. 


Procedury New-Dispose oraz Mark-Release dostarczają dwóch mechanizmów 
zarządzania pamięcią sterty. W ustalonym programie należy ograniczyć się do 
jednego z tych mechanizmów. Istota różnic między rozpatrywanymi tu 


Tablica 13.1. Porównanie mechanizmów zarządzania 
pamięcią sterty 


Sterta Po Dispose Po Release 


mechanizmami została przedstawiona w tabl. 13.1. Przy założeniu, że zmiennej 
Ptr przypisano wskazanie zmiennej var3, pokazano tam skutek wykonania 
procedury Dispose(Ptr) i Release(Ptr). 


Procedura GetMem 
Wywołanie: GetMem(PtrVar,IntExp) 


Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej a IntExp jest 
wyrażeniem typu integer. 
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Wykonanie procedury GetMem powoduje zarezerwowanie na stercie obszaru 
pamięci operacyjnej o rozmiarze wyrażonym w bajtach i określonym przez 
wartość wyrażenia IntExp, a następnie przypisanie zmiennej PtrVar danej 
wskazującej tak przypisany obszar. 


Procedura FreeMem 
Wywołanie: FreeMem(PtrVar,IntExp) 


Przyjmuje się, że PtrVar jest nazwą zmiennej wskazującej, a IntExp jest 
wyrażeniem typu integer. 


Wykonanie procedury FreeMem powoduje zwrócenie do sterty obszaru 
pamięci operacyjnej wskazywanego przez zmienną PtrVar, zajmującego tyle 
bajtów, ile określa wartość danej reprezentowanej przez wyrażenie IntExp. 
Wymaga się, aby obszar zwracany za pomocą procedury FreeMem miał 
dokładnie taki sam rozmiar jak obszar uzyskany za pomocą GetMem. 


Funkcja MaxAvail 
Wywołanie: MaxAvail 


Rezultatem funkcji MaxAvail jest dana typu integer określającego rozmiar 
największego spójnego obszaru pamięci operacyjnej dostępnego na stercie. 
Rozmiar ten jest wyrażony liczbą paragrafów. Każdy paragraf liczy 16 bajtów. 
Jeśli rezultat jest ujemny, to faktyczną liczbę paragrafów można uzyskać 
dodając do rezultatu liczbę rzeczywistą o wartości 65536. 


Przykład 
type 
Pointer = * Pair; 
Pair : record 
Int : integer; 
Ref : Pointer 
end 
var 
Number : integer; 
Head, Tail : Pointer; 
begin 
Head : = nil; 
Read(Number); 
while not Eof do begin 
New(Tail); 
Tail" .Int:= Number; 
Tail" .Ref := Head; 
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Head := Tail; 
Read(Number) 

end; 

Tail:= Head; 

while Tail <> nil do begin 
Writeln( Tail" .Int); 
Tail:= Tail" .Ref 

end 

end. 


e Wykonanie przytoczonego programu powoduje wprowadzenie z konsoli 


ciągu liczb całkowitych, a następnie wyprowadzenie go w kolejności odwrot- 
j m 


nej. 


14. Przypisywanie danych 
początkowych 


Jedną z ważnych właściwości języka Turbo Pascal jest możliwość przypisy- 
wania zmiennym danych początkowych. Jeśli podczas wykonywania programu 
zmienne takie zachowują swoje początkowe wartości, to mogą być traktowane 
jak stałe. Jeśli natomiast zmienna, której przypisano daną początkową zmieni 
swoją wartość, to w chwili ponownego aktywowania programu, znajdującego 
się w pamięci operacyjnej, zostanie zachowana ostatnia wartość zmiennej 
z poprzedniego wykonania. Ponieważ taki program z reguły traci właściwość 
powtarzalności, zaleca się, aby przypisywanie danych początkowych było 
ograniczone do zmiennych zachowujących się jak stałe. Z tej to właśnie 
przyczyny, deklaracje zmiennych, którym należy przypisać dane początkowe, 
występują w programie po słowie kluczowym const, a nie po słowie var. 


Przykład 

program Increment; 

const 
Number : integer = 1; 

begin 
Witeln( Number = ,Number); 
Number := Number + 1 

end. 


e W przytoczonym programie zmiennej Number typu integer przypisano daną 
początkową o wartości 1. 

e Kolejne aktywowanie programu za pomocą dyrektywy R będzie powo- 
dować wyprowadzanie kolejnych liczb naturalnych. m 


Jak już częściowo wynika z przytoczonego przykładu, deklaracja zmiennej, 
której przypisano daną początkową, składa się z nazwy zmiennej, po której 
następuje dwukropek, następnie opisu typu zmiennej, znak równości, inicjator 
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oraz średnik. Zapis inicjatora zależy od typu zmiennej. Dla zmiennych 
prostych ma on postać literału, natomiast dla zmiennych tablicowych ma 
postać listy inicjatorów ujętych w nawiasy okrągłe, a dla zmiennych rekor- 
dowych postać wykazu inicjatorów, także ujętego w nawiasy okrągłe. 


Składnia 
deklaracja-z-inicjacją: 
nazwa-zmiennej : opis-typu = inicjator ; 
nazwa-zmiennej: 
identyfikator 
inicjator: 
literał 
nazwa-literału 
( lista-inicjatorów ) 
( wykaz-inicjatorów ) 


Przykłady 
const 

LineLength : byte = 132; 
Radius : real = 13.64; 
FullName : string[12] = Jan Bielecki; 
CtrlM : char = "M; 
Separator : set of char=l[/, ; ,.]; 
SexIsMale : boolean = true; 
ShortName : string[3] = Izabela'; 
WholeReal : real = 44; 


e Zmiennej LineLength (typu byte) przypisano daną początkową 132. 

e Zmiennej Radius (typu real) przypisano daną początkową 13.64. 

e Zmiennej FullName (typu string[12]) przypisano daną Jan Bielecki. 

e Zmiennej CtrlM (typu char) przypisano daną *M. 

e Zmiennej Separator, (typu set of char) przypisano daną [/, ; ,.]. 

e Zmiennej SexIsMale (typu boolean) przypisano daną true. 

e Zmiennej ShortName (typu string[3]) przypisano daną 'Iza'. 

e Zmiennej WholeReal przypisano daną 44.0. O 


Jeśli inicjowana zmienna jest tablicą, to inicjator musi mieć postać listy ujętej 
w nawiasy okrągłe, wyszczególniającej dane początkowe dla wszystkich elemen- 
tów tej tablicy. Jeśli inicjowana zmienna jest rekordem, to inicjator musi mieć 
postać wykazu ujętego w nawiasy okrągłe, wyszczególniającego dane począt- 
kowe dla wszystkich albo tylko niektórych pól rekordu. Wymaga się, aby 
elementy wykazu wyszczególniały dane początkowe w takiej kolejności, 
w jakiej pola rekordu występują w jego deklaracji. W przypadku inicjowania 
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rekordów elementami wykazu są oddzielone średnikami napisy składające się 
z nazwy pola rekordu, po której następuje dwukropek 1 inicjator pola rekordu. 


Przykłady 
type 
Color = (Red,Black,Fair); 
Person = record 
FirstName : string[3] 
LastName : string[12]; 
Hair : Color; 


Age : byte 

end; 

Sex = (male, female); 

const 

Vector : array[1..3] of. Sex = 
(male,male, female); 

Matrix : array[Color,2..3] of byte = 
((0,0),(1,1),(2,5)); 


ThreeD : array[boolean,boolean,boolean] of Color = 
(((Red,Red),(Red,Fair)), 
((Black,Black),(Red,Black))); 

JanB : Person = 
(FirstName : Jan; 
LastName : 'Bieleckt; 
Hair : Black; 

Age : 44); 

Family : array[1..3] of Person = 
((FirstName : Jan; 
LastName : 'Bielecki'; 
Hair : Black; 

Age : 44), 
(FirstName : 'Ewa'; 
LastName : 'Bielecka'; 
Hair : Black; 
Age : 38), 
(FirstName : Iza; 
LastName : Bielecka ; 
Hair : Black; 
Age : 3)); 
e Elementowi Fector[2] przypisano daną początkową male. 


e Elementowi Matrix[Fair,3] przypisano daną początkową 5. 
e Elementowi ThreeD[ false,true,true] przypisano daną początkową Fair. 
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e Polu JanB.Age przypisano daną początkową 44. 
e Polu Family[2].Age przypisano daną początkową 38. 
e Gdyby deklaracji zmiennej Vector nadano postać 


Vector : array[1..3] of Sex = (male, female); 


to byłaby ona błędna, ponieważ zmienna ta jest tablicą 3-elementową, 
natomiast lista inicjatorów zawarta w nawiasach okrągłych składa się 
z tylko 2 elementów. 


e Gdyby deklaracji zmiennej JanB nadano postać 
JanB : Person = (FirstName : Janek'); 
to byłaby ona poprawna i równoważna deklaracji 
JanB : Person = (FirstName : Jan'); 
e Gdyby deklaracji zmiennej JanB nadano postać 
JanB : Person = (LastName : 'Bielecki); 
to byłaby ona niepoprawna. 0 


Przypisania danych początkowych polom rekordu z wariantami są sensowne 
tylko wtedy, gdy dotyczą tych pól wariantu, które do niego należą. Wymaganie 
to nie jest kontrolowane przez kompilator. 


Przykład 
type 
Sex = (male, female); 
Color = (Black,Red,Blond); 
Person = record 
Name : string[ 20]; 
case Gender : Sex of 
male : (Height : byte); 
female : (Hair : Color) 
end; 
const 
Trio : array[1..3] of Person = ( 
(Name : "Ewa'), 
(Name : Jan; Gender : male), 
(Name : "Iza; Gender : female; Hair : Black)); 


e Polu Trio[2].Gender tablicy rekordów Trio przypisano daną początkową 
male. 
e Inicjator o postaci 


(Name : 'Iza'; Gender : male; Hair : Black) 


chociaż mało sensowny, jest uznawany za poprawny. D 
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Funkcje i procedury są obiektami opisującymi dobrze zdefiniowane fragmenty 
algorytmu realizowanego przez program. Z tego względu będą nazywane 
podprogramamii. 


W odróżnieniu od innych obiektów strukturalnych, jak np. instrukcji wyboru, 
wykonanie podprogramu wymaga jego wywołania, tj. stosownie do sytuacji, 
posłużenia się instrukcją wywołania procedury albo wywołaniem funkcji. 
Instrukcja wywołania procedury może wystąpić w każdym miejscu programu, 
w którym może być użyta np. instrukcja pusta, natomiast wywołanie funkcji 
może być użyte jedynie w wyrażeniu, występując tam pod postacią tzw. 
nazewnika funkcji. 


Podprogramy, podobnie jak zmienne, wymagają deklarowania. Deklaracje 
podprogramów mogą być umieszczane w części deklaracyjnej bloku. Dekla- 
racja podprogramu, nazywana niekiedy jego definicją, składa się z nagłówka 
oraz z bloku stanowiącego ciało podprogramu. Nagłówek procedury składa się ze 
słowa kluczowego procedure, po którym następuje nazwa procedury, ujęty 
w nawiasy okrągłe wykaz parametrów procedury oraz średnik. Nagłówek 
funkcji składa się ze słowa kluczowego function, po którym następuje nazwa 
funkcji, ujęty w nawiasy okrągłe wykaz parametrów funkcji, dwukropek, 
określenie typu rezultatu funkcji oraz średnik. Jeśli wykaz parametrów 
podprogramu jest pusty, to jest opuszczany wraz z otaczającymi go nawiasami. 


Wymaga się, aby podczas wykonywania funkcji została wykonana instrukcja 
przypisania, w której z lewej strony dwuznaku przypisania występuje nazwa 
funkcji, a z prawej wyrażenie zgodne z typem rezultatu funkcji. Dana 
reprezentowana przez wyrażenie, które wystąpiło w ostatnim tak wykonanym 
przypisaniu stanowi rezultat funkcji. Wykonanie funkcji nie musi ograniczyć 
się do udostępnienia rezultatu. Może ono także spowodować zmianę pewnych 
argumentów jej wywołania. 
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Składnia 
deklaracja-podprogramu: 
deklaracja-procedury 
deklaracja- funkcji 
deklaracja-procedury: 
procedure nazwa-procedury ( wykaz-parametrów ) ; 
procedure nazwa-procedury ; 
deklaracja- funkcji: 
function nazwa- funkcji ( wykaz parametrów ) : typ-rezultatu ; 
function nazwa-funkcji : typ-rezultatu ; 
nazwa-procedury: 
identyfikator 
nazwa- funkcji: 
identyfikator 
typ-rezultatu: 
identyfikator-typu-prostego 
identyfikator-typu-prostego: 
identyfikator 


Elementy wykazu parametrów podprogramu są oddzielone średnikami. Każdy 
element wykazu zawiera listę identyfikatorów parametrów, po której następuje 
dwukropek i identyfikator typu parametrów danej listy. 


W chwili wywołania podprogramu następuje skojarzenie parametrów pod- 
programu z argumentami jego wywołania. Liczba argumentów wywołania 
musi być równa liczbie parametrów, a skojarzenia parametrów z argumentami 
dokonują się w kolejności ich wystąpienia w nagłówku podprogramu i w wy- 
wołaniu. 


Skojarzenie parametru z argumentem może dokonać się przez wartość albo 
przez wskazanie. W pierwszym przypadku parametr jest traktowany jak 
lokalna zmienna podprogramu, której w chwili rozpczęcia jego wykonywania 
(dla danego wywołania) przypisano daną reprezentowaną przez argument. 
W drugim przypadku parametr jest traktowany tak, jakby reprezentował 
argument. Ma to taki skutek, że każda operacja dotycząca parametru jest 
realizowana tak, jakby dotyczyła argumentu. Posłużenie się tym rodzajem 
skojarzenia parametru z argumentem wymaga poprzedzenia listy identyfi- 
katorów parametrów słowem kluczowym var. 


Szczególnym rodzajem skojarzenia przez wskazanie jest skojarzenie parametru 
z argumentem, który jest nazwą podprogramu. Jednym z ograniczeń języka 
Turbo Pascal w stosunku do standardu języka Pascal jest brak tego rodzaju 
skojarzenia. 


15. Funkcje i procedury 123 


Składnia 

element-wykazu-parametrów: 
lista-nazw-parametrów : oznaczenie-typu 
var lista-nazw-parametrów : oznaczenie-typu 
var list-nazw-parametrów 

oznaczenie-typu: 
identyfikator-typu 

identyfikator-typu: 
identyfikator 

nazwa-parametru: 
identyfikator 


Przykłady 
a. Procedura z jednym parametrem, skojarzenie przez wartość 


program FiveMessages; 
var 
Tally : byte; 
procedure SlowDown(Count : integer); 
begin 
for Count:= Count downto 1 do 
end; 
begin 
for Tally:= 1 to 5 do begin 
Writeln( Wake up); 
SlowDown(400) 
end 
end. 


e Program FiveMessages zawiera 2 deklaracje: deklarację zmiennej Tally 
i deklarację procedury SlowDown. 
e Wykazem, a zarazem elementem wykazu parametrów, jest napis 


Count : integer 


e Skojarzenie parametru Count z argumentem 400 dokona się przez wartość. 
e Operacje na parametrze Count są w istocie operacjami na pewnej lokalnej 
zmiennej procedury SlowDown. Początkową wartością tej zmiennej jest 400. 


b. Procedura z dwoma parametrami, skojarzenie przez wskazanie 


program ConvertAndSwap; 
var 
theFloat : real; 


theFixed : integer; 
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procedure Swap(var Float : real; 
var Fixed : integer); 
var 
Temp : real; 
begin 
Temp := Float; 
Float := Fixed; 
Fixed : = trunc( Temp + 0.5) 
end; 
begin 
theFloat := 12.8; 
theFixed := 10: 
W*iteln(theFloattheFixed :3); 
Swap(theFloat,theFixed); 
Writeln(theFloat,theFixed :3) 
end. 


e Program ConvertAndSŚwap zawiera 4 deklaracje: deklaracje zmiennych 
theFloat i theFixed, deklarację procedury Swap oraz deklarację zmiennej Temp. 
e Wykaz parametrów procedury Swap składa się z 2 elementów oddzielonych 
średnikiem. 
e Skojarzenia parametrów procedury z argumentami wywołania dokonują się 
przez wskazanie. 
e Operacje na parametrze Float są w istocie operacjami na argumencie 
theFloat, a operacje na parametrze Fixed są operacjami na argumencie 
theFixed. 
e Wykonanie programu powoduje wyprowadzenie 2 wierszy tekstu. W pierw- 
szym znajdą się liczby 12.8 i 10, a w drugim liczby 10i 13. 
e Gdyby nagłówkowi procedury Swap nadano postać 

procedure Swap(Float : real; 

var Fixed : integer); 


niczego poza tym nie zmieniając, to zostałyby wyprowadzone liczby 12.8 i 10 
oraz 12.8 i 13. Wynika to z faktu, że po wprowadzeniu takiej zmiany 
skojarzenie parametru Float z argumentem theFloat dokonałoby się przez 
wartość. 
c. Najkrótszy program zawierający deklarację i wywołanie procedury bez- 
parametrowej 

procedure P; 

begin 

end; 

begin 

P 
end. 
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d. Funkcja z trzema parametrami 
program MultiplyDivide; 
var 
Product : integer; 
function Divide(SourceOne,SourceTwo : byte; 
var Target : integer) : real; 
begin 
Target := SourceOne*Source Two; 
Divide : = SourceOne/SourceTwo 
end; 
begin 
Writeln(Divide(12,4,Product),Product :3) 
end. 


e Parametry SourceOne i Source Two są skojarzone z argumentami 12 i 4 przez 
wartość. Parametr Target jest skojarzony z argumentem Product przez wska- 
zanie. Rezultatem funkcji jest dana typu real. 
e Wykonanie programu powoduje wyprowadzenie 1 wiersza tekstu zawie- 
rającego liczby 3.0 i 48. 
e Gdyby nagłówkowi funkcji Divide nadano postać 

function Divide(SourceOne,SourceTivo : byte; 

Target : integer) : real; 


to program byłby niepoprawny z powodu nieprzypisania zmiennej Product 
żadnej danej. 
e Gdyby nagłówkowi funkcji Divide nadano natomiast postać 
function Divide(var SourceOne,SourceTwo : byte; 
var Target : integer) : real; 


to program byłby niepoprawny, ponieważ z parametrami zadeklarowanymi do 
skojarzenia przez nazwę próbowano by skojarzyć argumenty nie będące 
nazwami zmiennych, lecz wyrażeniami, tu 12 i 4. 


e. Najkrótszy program zawierający deklaracje i wywołanie funkcji bezpara- 
metrowej 


function F : byte; 


begin 
F:=0 

end; 

begin 
Write(F) 


end. [m 


126 15. Funkcje i procedury 


e Przytoczony program zawiera konstrukcje języka standardowego, które nie 
zostały implementowane w języku Turbo Pascal. Z tego powodu jest to 
program błędny. [m 


Kontrolowane przez kompilator wymaganie zgodności typu parametru z ty- 
pem argumentu nie dotyczy tzw. parametrów bez typu, zadeklarowanych bez 
opisu typu. Przyjmuje się bowiem, że nie ujawniony typ takiego parametru jest 
zgodny z typem dowolnego, skojarzonego z nim argumentu. To rozszerzenie 
języka, często w połączeniu z użyciem opisanego w rozdz. 19 słowa kluczowego 
absolute umożliwia w wielu przypadkach opracowywanie bardziej efektywnych 
programów. 


Przykład 
program MouveArray; 
var 
SourceArray : array[1..3,1..4] of integer; 
TargetArray : array[1..2,1..6] of integer; 


procedure MoveBytes(var Source, Target; 
Count : integer); 


var 

Index : integer; 
type 

ByteField = array[1..MaxlInt] of byte; 
var 


Śrc : ByteField absolute Source; 
Trg : ByteField absolute Target; 
begin 
for Index:= 1 to Count do 
Trg [Index] := Src[Index] 
end; 


begin 
MoveBytes(SourceArray, TargetArray,24) 


end. 


e Tablice SourceArray i TargetArray są różnych typów, zatem wykonanie 
instrukcji 
TargetArray := SourceArray 


jest zabronione. Rezultat ten można jednak uzyskać, posługując się procedurą 
MoueBytes. 
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e W procedurze tej Source i Target są parametrami bez typu. Lokalne zmienne 
Śrc i Tig typu ByteField zostają odwzorowane na obszary pamięci zajmowane 
przez tablice skojarzone z tymi parametrami. [m 


Program, w którym parametr jawnie określonego typu jest skojarzony 
z argumentem innego typu, jest błędny. Wymaganie zgodności typu parametru 
I argumentu może zostać osłabione w odniesieniu do parametrów i ar- 
gumentów typu łańcuchowego. Przyjęto bowiem, że w zasięgu działania 
dyrektywy kompilatora ($V—) każdy parametr typu łańcuchowego jest 
zgodny ze skojarzonym z nim argumentem typu łańcuchowego. Umożliwia to 
konstruowanie procedur do przetwarzania danych łańcuchowych dowolnych 
typów. 


Przykład 
program CountSpaces; 
type 
OneLine = string[80]; 
function SpaceCount(SourceText : OneLine) : integer; 


var 

Count,lndex : integer; 
begin 

Count : = 0; 


for Index:= 1 to Length(SourceText) do 
if SourceText[Index] =" then 
Count := Count +1; 
SpaceCount := Count 
end; 
begin 


Writeln(SpaceCount( 
($V—) "To be or not to be” ($V+) 


)); 
end. 


e Parametr SourceText jest typu string[80], natomiast skojarzony z nim 
argument jest typu string[ 18]. 

e Wykonanie instrukcji wywołania procedury Writeln powoduje wyprowa- 
metru z argumentem odbywa się w zasięgu dyrektywy kompilatora ($V— |. 
e Wykonanie instrukcji wywołania procedury Writeln powoduje wyprowa- 
dzenie liczby 5. [m 


Podobnie jak w wielu innych językach algolopodobnych, podprogramy 
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zapisane w języku Turbo Pascal mogą zostać przygotowane w wersji reku- 
rencyjnej. Niejednokrotnie umożliwia to uproszczenie algorytmu. 


Przykład 
function Fibonacci(Index : byte) : integer; 
begin 
if Index < 3 then 
Fibonacci:= 1 
else 
Fibonacci := Fibonacci(Index — 1) + 


Fibonacci(Index — 2) 
end; 


e Przytoczona funkcja służy do wyznaczania wartości wyrazów ciągu 
Fibonacciego. W ciągu tym pierwsze dwa wyrazy mają wartość 1, natomiast 
każdy z następnych jest sumą dwóch bezpośrednio go poprzedzających. D 


W tych przypadkach, gdy posłużenie się rekurencją wymaga zadeklarowania 
np. dwóch procedur, z których pierwsza wywołuje drugą, a druga wywołuje 
pierwszą, niemożliwe jest takie uporządkowanie deklaracji, aby każde od- 
wołanie dotyczyło obiektu już zadeklarowanego. W takiej sytuacji konieczne 
jest posłużenie się deklaracją zapowiadającą, składającą się z nagłówka pod- 
programu, po którym następuje średnik i słowo kluczowe forward. 


W dogodnym miejscu po deklaracji zapowiadającej powinna wystąpić właś- 
ciwa deklaracja podprogramu. Jej nagłówek nie zawiera już wykazu para- 


metrów ujętego w nawiasy, a dla funkcji — także dwukropka i następującego 
po nim oznaczenia typu. 


Przykład 
function FunOne(var Source : byte; Target : byte) : char; 
forward; 
function FunTwo(Count : byte) : real; 
begin 


Write(FunOne(Count,2*Count)); 


end; 
function FunOne; 


begin 


Write ( FunTwo(Source + Target)); 


end; 


15. Funkcje i procedury 129 


e Ponieważ w ciele definicji funkcji FunTwo wystąpiło odwołanie do funkcji 
FunOne, a w ciele funkcji FunOne wystąpiło odwołanie do funkcji FunTwo, 


konieczne było posłużenie się deklaracją zapowiadającą, w której ciało funkcji 


FunOne zostało zastąpione napisem forward. 
e Oczywiście nic nie stałoby na przeszkodzie, aby deklaracje przytoczonych 


funkcji wystąpiły w odwrotnej kolejności. W takim przypadku deklaracja 
zapowiadająca dotyczyłaby funkcji FunTwo i miałaby postać 


function FunTwo(Count : byte) : real; [m 


16. Podprogramy standardowe 


Określenie podprogram standardowy dotyczy tych podprogramów, które są 
dostępne bez jawnego definiowania. Wiele takich podprogramów opisano już 
uprzednio. Należą do nich podprogramy służące do wykonywania operacji na 
danych łańcuchowych, podprogramy do dynamicznego zarządzania pamięcią 
operacyjną oraz podprogramy realizujące operacje wejścia/wyjścia. 


Uzupełnieniem tego obszernego zbioru podprogramów są procedury ekranowe 
i specjalne, funkcje arytmetyczne, skalarne i do wykonywania konwersji oraz 
dość liczna grupa funkcji pomocniczych. 


Procedury ekranowe 


Procedury ekranowe są dostępne w tych implementacjach, w których dokonano 
ich instalacji. 

Procedura ClrEol 

Wywołanie: ClrEol 

Procedura ClrEol jest bezparametrowa. 


Wykonanie procedury ClrEol powoduje zlokalizowanie wiersza, w którym 
znajduje się kursor, a następnie zastąpienie spacjami wszystkich znaków tego 
wiersza, począwszy od znaku wyróżnionego przez kursor. Pozycja kursora nie 
ulega zmianie. 


Procedura ClrScr 
Wywołanie: ClrScr 
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Procedura ClrScr jest bezparametrowa. 


Wykonanie procedury ClrScr powoduje tzw. „wyczyszczenie” ekranu, tj. 
zapełnienie go znakami spacji. Kursor zostanie umieszczony w lewym-górnym 
rogu ekranu. W zależności od sposobu zainstalowania procedury czynności tej 
może towarzyszyć zmiana parametrów ustalonych za pomocą opisanych dalej 
procedur LowVideo i NormVideo. 


Procedura Crtlnit 

Wywołanie: Crtlnit 

Procedura Crtlnit jest bezparametrowa. 

Wykonanie procedury CrtlInit powoduje skierowanie do monitora łańcucha 
znaków inicjujących, określonego podczas instalowania systemu Turbo Pascal. 
Procedura CrtExit 

Wywołanie: CrtExit 

Procedura CrtExit jest bezparametrowa. 

Wykonanie procedury CrtExit powoduje skierowanie do monitora łańcucha 
znaków kończących, określonego podczas instalowania systemu Turbo Pascal. 
Procedura DelLine 

Wywołanie: DelLine 

Procedura DelLine jest bezparametrowa. 


Wykonanie procedury DelLine powoduje zlokalizowanie wiersza, w którym 
znajduje się kursor, a następnie usunięcie go i przemieszczenie wierszy 
znajdujących się poniżej o jeden wiersz do góry. Po wykonaniu tych czynności 
najniższy wiersz ekranu staje się pusty. Pozycja kursora nie ulega zmianie. 


Procedura InsLine 
Wywołanie: InsLine 


Procedura InsLine jest bezparametrowa. 


Wykonanie procedury InsLine powoduje zlokalizowanie wiersza, w którym 
znajduje się kursor, a następnie przemieszczenie tego wiersza, wraz z wierszami 
za nim następującymi, o jeden wiersz do dołu. Powoduje to umieszczenie na 
ekranie pustego wiersza i usunięcie z ekranu najniżej położonego z przemiesz- 
czanych wierszy. Pozycja kursora nie ulega zmianie. 
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Procedura GotoX Y 
Wywołanie: GotoX Y(xPos,yPos) 
Przyjmuje się, że xPos i yPos są wyrażeniami typu integer. 


Wykonanie procedury GotoX Y powoduje ustawienie kursorsa w takiej pozycji, 
że wyróżnia on znak o współrzędnych (xPos,yPos). Zakłada się, że lewy-górny 
narożnik ekranu ma współrzędne (1,1), odcięte są liczone od lewej do prawej, 
a rzędne od góry do dołu. Jeśli wartość wyrażenia xPos albo yPos wykracza 
poza rozmiar wiersza albo kolumny, to każda z nich jest traktowana modulo 
rozmiar. 


Procedura LowVideo 
Wywołanie: LowVideo 
Procedura LowVideo jest bezparametrowa. 


Wykonanie procedury LowVideo powoduje, że aż do najbliższego wykonania 
procedury NormVideo znaki wyprowadzone na ekran są przyciemnione albo 
poddane inwersji. 


Procedura NormVideo 
Wywołanie: NormVideo 
Procedura NormVideo jest bezparametrowa. 


Wykonanie procedury NormVideo powoduje przywrócenie normalnego (por. 
procedura LowVideo) sposobu wyświetlania znaków. 


Procedury specjalne 


Procedura Delay 

Wywołanie: Delay(Time) 

Przyjmuje się, że Time jest wyrażeniem typu integer. 

Wykonanie procedury Delay powoduje wstrzymanie wykonywania programu 
na okres (w przybliżeniu) Time milisekund. Jeśli wyrażenie Time ma wartość 
ujemną, to traktuje się je tak, jakby miało wartość 0. 

Procedura FillChar 

Wywołanie: FillChar(Var,Cnt, Val) 


Przyjmuje się, że Var jest nazwą zmiennej dowolnego typu, Cnt jest wyrażeniem 
typu integer, a Val jest wyrażeniem typu char albo byte. 
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Wykonanie procedury FillChar powoduje umieszczenie w obszarze, którego 
początek przydzielono zmiennej Var, Cnt danych bajtowych mających taką 
samą reprezentację jak dana bajtowa reprezentowana przez Val. 


Procedura Exit 
Wywołanie: Exit 


Procedura Exit jest bezparametrowa. 

Wykonanie procedury Exit ma taki sam skutek, jak wykonanie instrukcji 
przejścia do niejawnej instrukcji pustej poprzedzającej słowo kluczowe end 
tego bloku, w którym wywołanie to wystąpiło. Powoduje to zatem zakończenie 
wykonywania bloku, a jeśli jest nim blok programu, także zakończenie 
wykonywania całego programu. 


Procedura Halt 


Wywołanie: Halt 
Halt(Num) 


Przyjmuje się, że Num jest wyrażeniem typu integer. W systemie CP/M jest 
dostępna jedynie bezparametrowa wersja procedury Halt. W systemie DOS 
wywołanie Halt jest równoważne wywołaniu Halt(0). 


Wykonanie procedury Halt powoduje zakończenie wykonywania programu. 
W systemie DOS wartość jawnego albo domniemanego argumentu jest 
przekazywana systemowi operacyjnemu. Wartość ta może zostać wykorzys- 
tana np. do wykonania testu ERRORLEVEL. 


Procedura Move 

Wywołanie: Move(Src, Tirg,Cnt) 

Przyjmuje się, że Śrc i Trg są nazwami zmiennych dowolnego typu, a Cnt jest 
wyrażeniem typu integer. 

Wykonanie procedury Move powoduje przepisanie z obszaru, którego począ- 
tek przydzielono zmiennej Src, do obszaru, którego początek przydzielono 


zmiennej T+g, Cnt bajtów pamięci. Przepisanie jest poprawne nawet wtedy, gdy 
wspomniane obszary częściowo albo w całości pokrywają się. 


Procedura Randomize 
Wywołanie: Randomize 
Procedura Randomize jest bezparametrowa. 


Wykonanie procedury Randomize powoduje zainicjowanie generatora liczb 
przypadkowych daną o wartości przypadkowej. 
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Funkcje arytmetyczne 


Funkcja Abs 
Wywołanie: Abs(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Abs jest dana takiego samego typu jak typ argumentu, 
o wartości równej wartości bezwzględnej danej reprezentowanej przez Num. 


Przykładowo: Abs(—2) = 2 
Abs(Pi) = 3.1415926536 
Funkcja ArcTan 
Wywołanie: ArcTan(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji ArcTan jest dana typu real stanowiąca arcus tangens danej 
reprezentowanej przez Num. 


Przykładowo: ArcTan(0) = 0.0 
ArcTan(1.0) = 0.7853981634 


Funkcja Cos 
Wywołanie: Cos(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Cos jest dana typu real stanowiąca cosinus danej reprezen- 
towanej przez Num. 


Przykładowo: Cos(0) = 1.0 
Cos(Pi) = —1.0 


Funkcja Exp 
Wywołanie: Exp(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Exp jest dana typu real uzyskana z podniesienia do potęgi 
Num podstawy logarytmów naturalnych e = 2.7182818285 


Przykładowo: Exp(0) = 1.0 
Exp(— 1.0) = 0.36787944117 
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Funkcja Frac 
Wywołanie: Frac(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Frac jest dana typu real stanowiąca część ułamkową danej 
reprezentowanej przez Num. 


Przykładowo: Frac(3) = 0.0 
Frac(Pi) = 0.1415926536 


Funkcja Int 
Wywołanie: Int(Num) 


Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Int jest dana typu real stanowiąca część całkowitą danej 
reprezentowanej przez Num. 


Przykładowo: Int(2) = 2.0 
Int(Pi) = —3.0 


Funkcja Ln 
Wywołanie: Ln(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funcji Ln jest dana typu real stanowiąca logarytm naturalny danej 
reprezentowanej przez Num. 


Przykładowo: Ln(1) = 0.0 
Ln(3.0) = 1.0986122887 


Funkcja Sin 
Wywołanie: Sin(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Sin jest dana typu real stanowiąca sinus danej repre- 
zentowanej przez Num. 


Przykładowo: Sin(0) = 0.0 
Sin(Pi/2) = 1.0 

Funkcja Sqr 

Wywołanie: Sqr(Num) 


Przyjmuje się, że Num jęst wyrażeniem typu real albo integer. 
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Rezultatem funkcji Sgr jest dana takiego samego typu jak typ argumentu, 
stanowiąca kwadrat danej reprezentowanej przez Num. 
Przykładowo: Sqgr(2) = 4 
Sqgr(2.0) = 4.0 
Funkcja Sqrt 
Wywołanie: Sqgrt(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real albo integer. 


Rezultatem funkcji Sqrt jest dana typu real, stanowiąca pierwiastek kwadra- 
towy danej reprezentowanej przez Num. 


Przykładowo: Sqrt(4) = 2.0 
Sqgrt(4.0) = 2.0 


Funkcje porządkowe 

Funkcja Odd 

Wywołanie: Odd(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji Odd jest dana typu boolean, wyrażająca wartość logiczną 
zdania „wyrażenie Num reprezentuje daną o wartości nieparzystej”. 


Przykładowo: Odd(3) = true 
Odd(4) = false 
Funkcja Pred 
Wywołanie: Pred(Num) 
Przyjmuje się, że Num jest wyrażeniem dowolnego typu porządkowego. 


Rezultatem funkcji Pred jest dana takiego samego typu jak typ argumentu, 
stanowiąca poprzednik danej reprezentowanej przez Num, w jego typie 
porządkowym. 


Przykładowo: Pred(B') ="A' 
Pred(—20) = —21 

Funkcja Succ 

Wywołanie: Succ(Num) 


Przyjmuje się, że Num jest wyrażeniem dowolnego typu porządkowego. 
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Rezultatem funkcji Succ jest dana takiego samego typu jak typ argumentu, 
stanowiąca następnik danej reprezentowanej przez Num, w jego typie po- 
rządkowym. 


Przykładowo: Succ( false) = true 
Succ(0) = 1 


Funkcje do wykonywania konwersji 

Funkcja Chr 

Wywołanie: Chr(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji Chr jest dana typu char, reprezentująca znak o kodzie przez 
Num. 


Przykładowo: Chr(65) = "A 
Chr(27) = "[ 
Funkcja Ord 
Wywołanie: Ord(Num) 
Przyjmuje się, że Num jest wyrażeniem typu dowolnego typu porządkowego. 


Rezultatem funkcji Ord jest dana typu integer, określająca numer porządkowy 
danej reprezentowanej przez Num, w jego typie porządkowym. 


Przykładowo: Ord(true) = 1 
Ord(—2) = —2 
Funkcja Round 
Wywołanie: Round(Num) 
Przyjmuje się, że Num jest wyrażeniem typu real. 


Rezultatem funkcji Round jest dana typu integer o wartości najbliższej wartości 
danej reprezentowanej przez Num. 


Przykładowo: Round(5.5) = 6 
Round(— 1.5) = —2 

Funkcja Tłrunc 

Wywołanie: Trunc(Num) 


Przyjmuje się, że Num jest wyrażeniem typu real. 
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Rezultatem funkcji Trunc jest dana typu integer stanowiąca część całkowitą 
danej reprezentowanej przez Num. 


Przykładowo: Tłrunc(3.14) = 3 
Trunc(—2.9) = —2 


Funkcje pomocnicze 

Funkcja Hi 

Wywołanie: Hi(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji Hi jest dana typu integer o wartości bardziej znaczącego 
bajtu danej reprezentowanej przez Num. 


Przykładowo: Hi(256) = 1 
Hi(—1) = 255 
Funkcja KeyPressed 
Wywołanie: KeyPressed 
Funkcja KeyPressed jest bezparametrowa. 


Rezultatem funkcji KeyPressed jest dana typu boolean wyrażająca wartość 
logiczną zdania „w buforze wejściowym konsoli znajduje się nie wprowadzony 
jeszcze znak”. 


Funkcja Lo 
Wywołanie: Lo(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji Lo jest dana typu integer o wartości mniej znaczącego bajtu 
danej reprezentowanej przez Num. 


Przykładowo: Lo(256) = 0 
Lo(— 1) = 255 
Funkcja Random 


Wywołanie: Random 
Random(Num) 


Przyjmuje się, że Num jest wyrażeniem typu integer. 
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Rezultatem funkcji Random w wersji bezparametrowej jest dana typu real 
o wartości przypadkowej większej lub równej 0.0 i mniejszej niż 1.0. Rezul- 
tatem funkcji Random w wersji z parametrem jest dana typu integer o wartości 
przypadkowej większej lub równej O i mniejszej niż Num. 

Funkcja ParamCount 

Wywołanie: ParamCount 


Funkcja ParamCount jest bezparametrowa. 


Rezultatem funkcji ParamCount jest dana typu integer określająca liczbę 
parametrów przekazanych programowi w chwili jego wywołania. Zakłada się, 
że parametry zostały oddzielone spacjami lub znakami tabulacji. 


Funkcja ParamStr 
Wywołanie: ParamStr(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji ParamStr jest dana łańcuchowa reprezentująca ten para- 
metr przekazany programowi w chwili jego wywołania, który ma numer Num. 
Zakłada się, że pierwszy parametr ma numer 1. 


Funkcja SizeO0f 
Wywołanie: SizeOf (Nam) 
Przyjmuje się, że Nam jest nazwą zmiennej albo nazwą typu. 


Rezultatem funkcji SizeO0f jest dana typu integer określająca liczbę bajtów 
pamięci przydzielonych zmiennej Nam albo liczbę bajtów pamięci niezbędnych 
do reprezentowania danej typu Nam. 


Przykładowo: SizeOf (boolean) = 1 
SizeOf (integer) = 2 
Funkcja Swap 
Wywołanie: Swap(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Rezultatem funkcji Swap jest dana typu integer, której bardziej znaczący bajt 
ma wartość Lo(Num), a mniej znaczący bajt ma wartość Hi(Num). 


Przykładowo: Swap(256) = 1 
Swap(1) = 256 
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Funkcja UpCase 
Wywołanie: UpCase(Chr) 
Przyjmuje się, że Chr jest wyrażeniem typu char. 


Rezultatem funkcji UpCase jest dana typu char, która jeśli Chr reprezentuje 
literę — jest literą dużą, a jeśli nie reprezentuje litery — jest taka jak dana 
reprezentowana przez Chr. 


Przykładowo: UpCase(a) = "A 
UpCase(.)=". 


Przykład 
program PrintArguments; 
var 
Count : byte; 
begin 


Write( Arguments are:); 
for Count:= 1 to ParamCount do 
Write( '„ParamStr(Count)) 
end. 
e Jeśli program PrintArguments zostanie wywołany z argumentami 
Jan Ewa Iza 
to jego wykonanie spowoduje wyprowadzenie napisu 
Arguments are: Jan Ewa Iza 


e Jeśli zostanie wywołany bez argumentów, to jego wykonanie spowoduje 
wyprowadzenie napisu 


Arguments are: 0 


17. Włączanie zbiorów 


Jedną z ważniejszych dyrektyw kompilatora jest dyrektywa włączenia zbioru. 
Ma ona postać 


($I name) 


gdzie name jest nazwą zbioru. 


Zinterpretowanie takiej dyrektywy powoduje zastąpienie jej zawartością zbioru 
o nazwie namie. Umożliwia to włączenie do programu uprzednio przygoto- 
wanych zestawów deklaracji albo bibliotek podprogramów w postaci źród- 
łowej. Wymaga się jedynie, aby zbiór włączany nie zawierał dyrektyw 
włączania zbiorów. 


Należy uwzględnić także to, że jeśli nazwa name nie zawiera czteroznakowego 
przyrostka, to nawias klamrowy kończący dyrektywę włączania zbioru po- 
winien być od name oddzielony przynajmniej jedną spacją. W przeciwnym 
razie klamra zamykająca zostanie uznana za część nazwy zbioru. 


Przykład 
Jeśli przyjąć, że w zbiorze Silnia.doc znajduje się tekst 


function Silnia(Num : byte) : integer; 
begin 
if Num < 2 then Silnia:= 1 
else Silnia: = Num + Silnia(Num — 1) 
end; 


to skompilowanie programu 
program Demo; 
($i Silnia.doc) 
begin 
Writeln(Silnia(5)) 
end. 
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będzie miało taki sam skutek jak skompilowanie programu 


program Demo; 
function Silnia(Num : byte) : integer; 
begin 

if Num < 2 then Silnia:= 1 

else Silnia := Num * Silnia(Num — 1) 

end; 
begin 

Writeln(Silnia(5)) 
end. 


18. Nakładkowanie podprogramów 


Istotnym ograniczeniem systemu Turbo Pascal jest założenie, że rozmiar kodu 
programu wynikowego oraz rozmiar jego danych nie przekracza 64K bajtów 
pamięci operacyjnej. Osłabienie skutków tego ograniczenia można uzyskać 
posługując się nakładkowaniem. 


Nakładkowaniu mogą podlegać zarówno funkcje, jak i procedury. Wymaga się 
jedynie, aby podprogramy nakładkowane nie były wywoływane rekurencyjnie 
oraz aby nie były przedmiotem deklaracji zapowiadających. Nie stanowi to 
istotnego utrudnienia, ponieważ nic nie stoi na przeszkodzie zadeklarowania 
podprogramu nienakładkowanego wywołującego podprogram, który miał być 
np. wywołany rekurencyjnie. 


Pewne trudności mogą powstać podczas wyszukiwania błędów w podprog- 
ramach nakładkowanych. Żeby nie wdawać się w opisy sposobów wykrywania 
takich błędów, wystarczy poprzestać na radzie, aby podprogramy zwykłe 
przekształcano w nakładkowane dopiero po ich uruchomieniu. 


Zasadę nakładkowania przedstawiono na rys. 18.1. Polega ona na tym, że 
obszar pamięci operacyjnej przydzielony programowi wynikowemu zostaje 
podzielony na dwa rodzaje obszarów: obszary, w których zostanie ulokowana 
część rezydencyjna programu i obszary, do których będą sprowadzane 
nakładki. 


Każda nakładka składa się z grupy podprogramów, której: przypisano obszar 
nakładkowy. W każdej chwili wykonywania programu w obszarze nakład- 
kowym może znajdować się co najwyżej jeden podprogram grupy. Rozmiar 
obszaru nakładkowego jest tak dobrany, że mieści się w nim każdy 
z podprogramów grupy. Oznacza to. że oszczędność pamięci operacyjnej 
wynikająca z posłużenia się grupą nakładkową wyraża się różnicą między 
rozmiarem grupy a rozmiarem największej nakładki w grupie. 
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Obszar 
rezydencyjny 


Obszar 
nakładkowy 1 


Grupa nakładek 1 


Nakładka 1 


Nakładka 2 
Nakładka 3 


Grupa nakładek 2 


Nakładka 1 
Nakładka 2 


Nakładka 3 
Nakładka 4 


Obszar 
rezydencyjny 


Obszar 
nakładkowy 2 


Obszar 
rezydencyjny 


Rys. 18.1 Zasada nakładkowania 


Ceną, jaką płaci się za oszczędność pamięci operacyjnej, jest zakaz wzajemnego 
odwoływania się podprogramów grupy oraz konieczność wykonywania trans- 
misji dyskowych podczas odwoływania się do tych podprogramów, które 
należą do grupy nakładkowej, ale w chwili wywołania nie znajdują się 


w pamięci operacyjnej. 


OverlayProgram 


zbiór.000 


Rys. 18.2 Struktura programu Overlay 
Program 
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Zasady tworzenia grup nakładkowych są bardzo proste. W celu utworzenia 
grupy wystarczy poprzedzić słowem kluczowym overlay jedną lub więcej 
następujących po sobie deklaracji podprogramów. Wszystkie takie podprog- 
ramy będą wówczas stanowić grupę, zapamiętaną jako zbiór o nazwie 
programu głównego (dyrektywa M menu systemu) z trzycyfrowym przyrost- 
kiem. Pierwsza grupa uzyska nazwę z przyrostkiem .000, druga z przyrostkiem 
0001 itd. Jeśli między podprogramami nakładkowanymi wystąpią podpro- 
gramy nienakładkowane, to podprogramy nakładkowane znajdą się w rozłącz- 
nych grupach. Zilustrowano to na rys. 18.2, na którym przedstawiono 
strukturę programu wynikowego powstałego z programu 


program OverlayProgram; 
overlay procedure One; 
begin 


end; 
overlay procedure Two; 
begin 


end 
procedure Middle; 
begin 


end; 
overlay procedure Three; 
begin 


end; 
overlay procedure Four; 
begin 


end; 
begin 


end. 
Zasady tworzenia grup nakładkowych nie wykluczają możliwości tworzenia 
nakładek w obrębie podprogramów nakładkowanych. Przedstawiono to na 
rys. 18.3 dla programu wynikowego powstałego z programu 


program NestedOverlays; 
overlay procedure One; 
begin 


10 — Turbo Pascal... 
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end; 

overlay function Two(Num : byte) : byte; 
overlay function Three : real; 
begin 
end; 
overlay procedure Four; 
begin 


end; 
begin (Two) 


end; 
begin (NestedOverlay) 


end. 


zbiór.000 


Twozpoczątek 


NestedOverlays 


zbiór.001 


Rys. 18.3 Struktura programu NestedOverlays 


19. Wybrane rozszerzenia 
implementacyjne 


System Turbo Pascal, rozumiany jako połączenie języka programowania 
i zintegrowanego z nim edytora ekranowego, może być instalowany 
w środowisku różnych systemów operacyjnych, takich jak np. DOS i CP/M. 
W każdym z nich udostępnia on dodatkowe możliwości specyficzne dla 
obranego systemu i komputera. Do możliwości tych należą m. in. 


e Jawne przydzielanie miejsca zmiennym programu. 

e Dodatkowe funkcje i procedury systemowe. 

e Bezpośrednie wywoływanie podprogramów systemowych. 
e Programowanie w języku asemblera. 


Mając na względzie ewentualne przenoszenie programów między systemami, 
zostaną tu omówione przykładowe rozszerzenia dla systemów DOS i CP/M. 
W celu umożliwienia selektywnego zapoznawania się z przytoczonym materia- 
łem opisy te potraktowano rozłącznie. 


System operacyjny DOS 


Jawne przydzielanie miejsca zmiennym programu 


Użycie w deklaracji pewnej zmiennej słowa kluczowego absolute umożliwia 
zarezerwowanie miejsca dla tej zmiennej w ustalonym obszarze pamięci 
operacyjnej, np. w miejscu przydzielonym innej zmiennej. 
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Deklaracja zawierająca słowo kluczowe absolute składa się z nazwy zmiennej 
deklarowanej, po której następuje dwukropek, określenie typu zmiennej, słowo 
kluczowe absolute, określenie miejsca, które ma zostać przydzielone zmiennej 
i średnik. Określenie miejsca może mieć postać nazwy zmiennej uprzednio 
zadeklarowanej, albo postać adresu bezwzględnego wyrażonego za pomocą 
oddzielonych dwukropkiem dwóch literałów typu integer albo odwołań do 
funkcji Cseg, Dseg albo Sseg. Para tych literałów lub odwołań ustala adres 
segmentu i przemieszczenie w segmencie tego adresu pamięci operacyjnej, pod 
którym zostanie przydzielone miejsce dla deklarowanej zmiennej. 


Składnia 
deklaracja-ze-słowem-absolute: 
nazwa-deklarowana : oznaczenie-typu 
absolute określenie-miejsca 
nazwa-deklarowana: 
identyfikator 
określenie-miejsca: 
określenie-miejsca-w-systemie-PC-DOS 
określenie-miejsca-w-systemie-CP/M-80 
określenie-miejsca-w-systemie-PC-DOS: 
nazwa-zmiennej 
adres-segmentu : przemieszczenie-w-segmencie 
adres-segmentu: 
literał 
nazwa-literału 
Cseg 
przemieszczenie-w-segmencie: 
literał 
nazwa-literału 
Dseg 
określenie-miejsca-w-systemie-CP/M-80: 
nazwa-zmiennej 
literał 
nazwa-literału 
nazwa-zmiennej: 
identyfikator 


Przykłady 
var 
CharStr : string[6]; 
StrLen : byte absolute CharStr; 
Para20 : array[0..15] of byte 
absolute 0020 : 0000;, 
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procedure Sub(varIntVar : integer); 
var 

LSB : byte absolute IntVar; 
begin 

if LSB = Lo(IntVar) then .. 


end; 


e Pierwszy bajt obszaru pamięci operacyjnej przydzielonego zmiennej CharStr 
pokrywa się z bajtem przydzielonym zmiennej StrLen. Odwołanie do zmiennej 
StrLen reprezentuje zatem taką samą daną jak odwołanie Leng:h(CharStr) oraz 
ord(CharStr[0]). 


e Zmiennej Para20 zostanie przydzielony obszar pamięci operacyjnej roz- 
poczynający się od bajtu o adresie 20 : 0, tj. od pierwszego bajiu para- 
grafu nr 20. 


e Zmiennej LSB zostanie przydzielony ten sam bajt pamięci operacyjnej, który 
został przydzielony mniej znaczącemu bajtowi zmiennej, z którą skojarzono 
parametr IntVar. Z tego powodu relacja zawarta w procedurze Sub będzie 
zawsze prawdziwa. (m 


Dodatkowe funkcje i procedury systemowe 


Funkcja Addr 
Wywołanie: Addr(Nam) 


Przyjmuje się, że Nam jest nazwą zmiennej. 


Rezultatem funkcji Addr jest dana wskazująca określająca adres obszaru 
pamięci przydzielonego zmiennej albo podprogramowi Nam. Adres ten składa 
się z numeru segmentu i przemieszczenia w segmencie. 


Przykładowo: Addr(Mem[2]) 


Funkcja Of5 
Wywołanie: Ofs(Nam) 
Przyjmuje się, że Nam jest nazwą zmiennej. 


Rezultatem funkcji Ofs jest dana typu integer określająca przemieszczenie 
w segmencie adresu obszaru przydzielonego zmiennej Nam. Nazwa Nam może 
być nazwą całościową albo nazwą częściową. 


Przykładowo: Ofs(ArrOf Rec[2,2].LevOne.LevTwo) 
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Funkcja Seg 
Wywołanie: Seg(Nam) 
Przyjmuje się, że Nam jest nazwą zmiennej. 


Rezultatem funkcji Seg jest dana typu integer określająca numer segmentu, 
adresu obszaru przydzielonego zmiennej Nam. Nazwa Nam może być nazwą 
całościową albo nazwą częściową. 


Przykładowo: Seg(CharString [3 ]) 


Funkcja Cseg 

Wywołanie: Cseg 

Funkcja Cseg jest bezparametrowa. 

Rezultatem funkcji Cseg jest dana typu integer określająca numer segmentu, od 
którego rozpoczyna się segment Code. 

Funkcja Dseg 

Wywołanie: Dseg 

Funkcja Dseg jest bezparametrowa. 

Rezultatem funkcji Dseg jest dana typu integer określająca numer segmentu, od 
którego rozpoczyna się segment Data. 

Funkcja Sseg 

Wywołanie: Sseg 

Funkcja Sseg jest bezparametrowa. 


Rezultatem funkcji Sseg jest dana typu integer określająca numer segmentu, od 
którego rozpoczyna się segment Stack. 


Procedura ChDir 
Wywołanie: ChDir(Str) 
Przyjmuje się, że Str jest wyrażeniem łańcuchowym. 


Wykonanie procedury ChDir powoduje zmianę bieżącego katalogu na katalog 
określony przez daną reprezentowaną przez Str. 


Przykładowo: ChDir(XJBYTURBO') 
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Procedura MkDir 
Wywołanie: MkDir(Str) 
Przyjmuje się, że Str jest wyrażeniem łańcuchowym. 


Wykonanie procedury MkDir powoduje utworzenie (w bieżącym katalogu) 
podkatalogu o nazwie określonej przez daną reprezentowaną przez Str. 


Przykładowo: MkDir(GRAPHICS') 


Procedura RmDir 
Wywołanie: RmDir(Str) 
Przyjmuje się, że Str jest wyrażeniem łańcuchowym. 


Wykonanie procedury RmDir powoduje usunięcie z bieżącego katalogu, 
podkatalogu o nazwie określonej przez daną reprezentowaną przez Str. 


Przykładowo: RmDir(GRAPHICS') 


Procedura GetDir 
Wywołanie: GetDir(Drive,Str) 


Przyjmuje się, że Drive jest wyrażeniem typu integer, a Str jest nazwą zmiennej 
łańcuchowej. 


Wykonanie procedury GetDir powoduje przypisanie zmiennej Str danej 


łańcuchowej określającej nazwę bieżącego katalogu stacji o numerze okreś- 
lonym przez Drive (0 =A, I =B, itd.). 


Przykładowo: GetDir(2,StrVar[3]) 


Procedura OvrPath 
Wywołanie: OvrPath(Path) 
Przyjmuje się, że Path jest wyrażeniem łańcuchowym. 


Wykonanie procedury OvrPath powoduje potraktowanie łańcucha znaków 
reprezentowanego przez Path jako nazwy katalogu i przyjęcie, że nakładki 
programu nakładkowanego znajdują się w tym właśnie katalogu. W zapisie 
nazwy katalogu znak . (kropka) oznacza katalog bieżący. 
Przykładowo: OvrPath(NJBYGROUP') 

OvrPath(.') 
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Bezpośrednie wywoływanie podprogramów systemowych 


Bezpośrednie wywołanie funkcji systemu operacyjnego zapewnia procedura 
MsDos, której argumentem jest zmienna typu 


record 
AX,BX,CX,DX, 
BP,SI,DI,DS,ES,Flags : integer 
end 
albo typu 


record 
case boolean of 
false: (AX,BX,CX,DX, 
BP,SI,DI,DS,Flags : integer); 
true: (AL,AH,BL,BH, 
CL,CH,DL,DH : byte) 
end 


W chwili podjęcia wykonywania procedury MsDos poszczególne pola wymie- 
nionych rekordów muszą zawierać wartości spodziewane przez system 
w rejestrach procesora. Po zakończeniu wykonywania omawianej procedury 


zawartość rejestrów procesora zostanie przeniesiona do pól wymienionych 
rekordów. 


Przykład 
program GetDate; 
type 
DateStr = string[10]; 
function Date : DateStr; 


type 
Registers = record 
AX,BX,CX,DX, 
BP,SI,DI,DS,Flags : integer 
end: 
var 


Regs : Registers; 
Month,Day : string[2]; 
Year : string[4]; 


begin 
Regs.AX := Swap($2A); 
MsDos(Regs); 


with Regs do begin 
Str(CX Year); 
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Str(Lo(DX ),Day); 
Str(Hi(DX),Month) 
end; 
Date := Month + '/ + Day +'/ + Year 
end; 
begin (GetDate) 
Writeln(Date) 
end. 


e Przed wywołaniem procedury MsDos w górnej połowie rejestru AX zostanie 
umieszczony kod $2A stanowiący żądanie pod adresem systemu, aby w rejest- 
rach procesora CX i DX została umieszczona bieżąca data: w rejestrze CX 
— rok, w górnej połowie rejestru DX — miesiac i w dolnej połowie tego 
rejestru — dzicń. [m 


W analogiczny sposób jak procedura MsDos może być wywoływana procedura 
Intr. Jest to procedura dwuparametrowa, której pierwszy argument jest 
wyrażeniem określającym numer przerwania systemowego, a drugi jest nazwą 
zmiennej takiego typu jak dla procedury MsDos i o podobnym przeznaczeniu. 


Przykład 
program Get Time; 
type 
TimeStr = string[8]; 
function Time : TimeStr; 


type 
Registers = record 
AL,AH,BL,BH, 
CL,.CH,DL,DH : byte 
end; 
var 


Regs : Registers; 
Hour,Min,Sec : string[2]; 
begin 
AH := $2C; 
Intr($21,Regs); 
with Regs do begin 
Str(CH,Hour); 
Str(CL,Min); 
Str(DH,Sec) 
end; 
Time := Hour+": +Min+': '+ŚSec 
end; 
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begin (GetDate) 
Writeln( Time) 
end. 


e Przed wywołaniem procedury Intr w górnej połowie rejestru AX zostaje 
umieszczony kod $2C stanowiący żądanie pod adresem systemu, aby 
w rejestrach procesora CX i DX został umieszczony bieżący czas: w górnej 
połowie rejestru CX — liczba godzin, w dolnej — liczba minut, a w górnej 
połowie rejestru DX — liczba sekund. [m 


Programowanie w języku asemblera 


Mimo iż jakość programów generowanych przez system Turbo Pascal jest 
bardzo wysoka, zachodzi niekiedy potrzeba dołączenia do programu napisa- 
nego w języku Turbo Pascal podprogramu napisanego w asemblerze, albo 
przynajmniej potrzeba posłużenia się wstawką asemblerową. Celowi temu 
służą konstrukcje językowe wykorzystujące słowa kluczowe external i inline. 


Jeśli w miejscu bloku stanowiącego ciało procedury podprogramu występuje 
konstrukcja 

external literal-lańcuchowy 
to oznacza to, że podprogram jest napisany w języku asemblerowym i znajduje 
się w zbiorze o nazwie określonej przez literał. Wymaga się, aby wykonanie 
takiego podprogramu nie spowodowało zmiany zawartości rejestrów BP, CS, 
DS i SS. 


Przykład 
function Factorial(Arg : byte) : integer; 
external SILNIA.COM'; 


e Część deklaracyjną i wykonawczą funkcji Factorial zastąpiono konstrukcją 
zawierającą słowo kluczowe external. 

e Funkcja Factorial jest napisana w języku asemblerowym i znajduje się 
w zbiorze o nazwie SILNIA.COM. [m 


Poza przedstawionym tu sposobem deklarowania podprogramów napisanych 
w asemblerze, zapewniono w Turbo Pascalu możliwość umieszczania w jed- 
nym zbiorze więcej niż jednego podprogramu asemblerowego. 


Deklaracje podprogramów należących do wspólnego zestawu powinny składać 
się z deklaracji pierwszego podprogramu zestawu, takiej jak omawiana wyżej, 
w celu dla określenia nazwy zbioru zawierającego zestaw oraz deklaracji 
składających się z nagłówka i konstrukcji 


external nazwa-podprogramu [ przemieszczenie |] 
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W takich konstrukcjach nazwa-podprogramu jest nazwą pierwszego podpro- 
gramu zestawu, a przemieszczenie jest adresem względnym w tabeli skoków 
znajdującej się na początku kodu asemblerowego zestawu. Przyjmuje się, że 
zerowy element tabeli skoków jest związany z pierwszym podprogramem 
zestawu. 


Przykład 
procedure One; 
external CLUSTER.PRG'; 
function Two : byte; 
external One[3]; 
procedure Three(Count : byte); 
external One[6]; 


e Zestaw składa się z podprogramów Ohne, Tivo i Three. 

e Pierwszym podprogramem zestawu jest One. 

o Podprogramy One, Two i Three znajdują się w zbiorze CLUSTER.PRG. 
o Każdy element tabeli skoków zajmuje 3 bajty. m 


Zdarza się często, że wstawki asemblerowe wymagane w programie napisanym 
w języku wysokiego poziomu są na tyle proste, że wygodne byłoby umiesz- 
czenie ich bezpośrednio między instrukcjami programu. Możliwość taką 
zapewnia w Turbo Pascalu specjalna instrukcja inline. 


Instrukcja inline składa się ze słowa kluczowego inline, bezpośrednio po 
którym następuje ujęty w nawiasy okrągłe ciąg elementów kodu. Elementy 
kodu są oddzielone kreskami ukośnymi, a każdy z nich składa się z elementów 
danych oddzielonych od siebie znakami + (plus) albo — (minus). 


Elementem danych jest literał typu integer, identyfikator zmiennej, identyfi- 
kator podprogramu oraz wyrażone za pomocą znaku * (gwiazdka) oznaczenie 
licznika instrukcji. 


Przykład 
inline(24/$F AFF/Source — 2/* Target + 3) 


Każdy element danych generuje jeden bajt albo jedno słowo (dwa bajty) kodu. 
Każda wygenerowana dana wynika z wykonania działań na elementach 
danych. Przyjmuje się że identyfikator zmiennej albo podprogramu reprezen- 
tuje adres (Ściślej przemieszczenie) tej zmiennej albo tego podprogramu. 
Analogicznie przyjmuje się, że oznaczenie licznika instrukcji reprezentuje adres 
tego najbliższego bajtu pamięci, w którym zostanie umieszczony wygene- 
rowany kod. 


Jeśli element kodu składa się wyłącznie z literałów i separatorów, a jego 
wartość mieści się w zakresie 0..255, to jest generowany jeden bajt. Jeśli wartość 
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elementu kodu nie mieści się we wspomnianym zakresie, jak również wtedy, 
gdy element kodu zawiera nazwy zmiennych lub podprogramów albo ozna- 
czenia licznika instrukcji, to jest generowane jedno słowo. W słowie tym bajt 
mniej znaczący jest generowany przed bajtem bardziej znaczącym. 


Przytoczone domniemania liczby generowanych bajtów kodu mogą zostać 
zmienione, jeśli przed elementem kodu zostanie umieszczony znak < (mniej- 
sze) albo > (większe). W pierwszym przypadku zostanie wygenerowany tylko 
mniej znaczący z tych bajtów, w których jest reprezentowana wartość elementu 
kodu, a w drugim dwa bajty i to nawet wtedy, gdy drugi z nich (bardziej 
znaczący) reprezentuje daną o wartości O. 


Przykład 
inline( > $12/ <$3456) 


e Pierwszy element kodu reprezentuje daną jednobajtową, ale wobec użycia 
znaku > (większe), generuje dwa bajty: $12 i $00. 
e Drugi element kodu reprezentuje daną dwubajtową, ale wobec użycia znaku 
< (mniejsze), generuje jeden bajt: 556. 
e Przytoczona instrukcja inline generuje trzy bajty kodu: $12, $00 i $56, 
w podanej kolejności. 
e Gdyby rozpatrywaną instrukcję zmieniono do postaci 

inline($12/53456) 
to generowałaby ona trzy bajty: $12, $56 i $34. [m 


Wymienione uprzednio przemieszczenia są wyznaczane w następujący sposób 


e Adresy zmiennych zadeklarowanych w bloku programu są wyznaczane 
względem segmentu danych, wskazywanego przez rejestr DS. 

e Adresy zmiennych zadeklarowanych w blokach podprogramów są wyzna- 
czane względem segmentu stosu, wskazywanego przez rejestr BP. 

e Adresy zmiennych inicjowanych są wyznaczane względem segmentu kodu, 
wskazywanego przez rejestr CS. 


Przykład 
(Przykład podano wg Turbo Pascal Reference Manual, v.3.0, rozdz. 20 — za 
zgodą Borland International) 
type 
AnyString = string[255]; 
procedure ToUpper(var Str : AnyString); 
begin 
inline ( 
$c4/$be/Str/ 
$26/$8a/$0d/ 
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$fe/$cl/ 
$fe/$c9/ 
$74/$13/ 
$47/ 
$26/580/$3d/$61/ 
572/$f5/ 
$26/580/$3d/$7a 
$77/$ef/ 
$26/580/$2d/$20/ 
$eb/$e9) 

end; 


e Wykonanie przytoczonej procedury powoduje zmianę małych liter zmiennej, 
z którą skojarzono parametr Str, na duże. 

e Elementy kodu zawarte w instrukcji inline generują następujący podpro- 
gram asemblerowy 


LES DI,Str[BP] 
MOV CLES:[DI] 
INC CL 
Li: DEC CL 
JŹ L2 
INC DI 
CMP ES:BYTE PTR[DI],a' 
JB LI 
CMP ES:BYTE PTR[DI],z 
JA LI 
SUB ES:BYTE PTR[DI],20H 
JMP SHORT LI 
L2: [m 


System operacyjny CP/M 


Jawne przydzielanie miejsca zmiennym programu 


Użycie w deklaracji pewnej zmiennej słowa kluczowego absolute umożliwia 
zarezerwowanie miejsca dla tej zmiennej w miejscu przydzielonym innej 
zmiennej, albo w ustalonym obszarze pamięci operacyjnej. 


Deklaracja zawierająca słowo kluczowe absolute składa się z nazwy zmiennej 
deklarowanej, po której następuje dwukropek, określenie typu zmiennej, słowo 
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kluczowe absolute, określenie miejsca, które ma zostać przydzielone zmiennej 
i średnik. Określenie miejsca może mieć postać nazwy uprzednio zade- 
klarowanej albo postać adresu bezwzględnego wyrażonego za pomocą literału 
typu integer. Wartość tego literału ustala adres w pamięci operacyjnej, pod 
którym zostanie przydzielone miejsce dla deklarowanej zmiennej. 


Składnia 
deklaracja-ze-słowem-absolute: 
nazwa-deklarowana : oznaczenie-typu absolute okreslenie-miejsca 
nazwa-deklarowana: 
identyfikator 
określenie-miejsca: 
nazwa-zmiennej: 
literał 
nazwa-zmiennej: 
identyfikator 


Przykłady 
var 
CharStr : string[6]; 
StrLen : byte absolute CharStr; 
Buffer : array[0..15] of byte 
absolute $2000; 

function Fun(var IntVar : integer) : byte; 
var 

LSB : byte absolute IntVar; 
begin 

if LSB = Lo(IntVar) then .. 


end; 


e Pierwszy bajt obszaru pamięci operacyjnej, przydzielonego zmiennej 
CharStr, pokrywa się z bajtem przydzielonym zmiennej StrLen. Odwołanie do 
StrLen reprezentuje zatem taką samą daną jak odwołanie Length(CharStr) oraz 
ord(CharStr[0]). 

e Zmiennej Buffer zostanie przydzielony obszar pamięci operacyjnej rozpo- 
czynający się od bajtu o adresie $2000. 

e Zmiennej LSB zostanie przydzielony ten sam bajt pamięci operacyjnej, który 
został przydzielony mniej znaczącemu bajtowi zmiennej, z którą skojarzono 
parametr IntVar. Z tego powodu relacja zawarta w funkcji Fun będzie zawsze 
prawdziwa. D 
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Dodatkowe funkcje i procedury systemowe 


Funkcja Addr 
Wywołanie: Addr(Nam) 
Przyjmuje się, że Nam jest nazwą zmiennej albo podprogramu. 


Rezultatem funkcji Addr jest dana wskazująca, określająca adres obszaru 
pamięci przydzielonego zmiennej albo podprogramowi Nam. 


Przykładowo: Addr(Mem[2]) 


Procedura OvrDrive 
Wywołanie: OvrDrive(Drv) 
Przyjmuje się, że Drv jest wyrażeniem typu integer. 


Wykonanie procedury OvrDrive powoduje, że w programie nakładkowanym, 
nakładki będą poszukiwane w stacji dyskowej określonej przez Drv (0 = stacja 
domniemana, I =A, 2=Biitd.) 


Przykładowo: OvrDrive(2) 


Bezpośrednie wywoływanie podprogramów systemowych 


Bezpośrednie wywoływanie podprogramów systemowych zapewniają proce- 
dury Bdos i Bios oraz funkcje Bdos, BdosHL, Bios i BiosHL. 


Procedura Bdos 


Wywołanie: Bdos(Fun,Par) 
Bdos(Fun) 


Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 


Wykonanie procedury Bdos powoduje załadowanie do rejestru c procesora 
mniej znaczącego bajtu danej reprezentowanej przez Fun, a następnie przejście 
do wykonywania programu począwszy od adresu 5 w celu zrealizowania 
funkcji systemu BDOS określonej przez Fun. Jeśli procedura jest wywoływana 
z dwoma argumentami, to przed wykonaniem wspomnianego skoku następuje 
umieszczenie danej reprezentowanej przez Par w rejestrze DE. 
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Funkcja Bdos 


Wywołanie: Bdos(Fun,Par) 
Bdos(Fun) 


Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 


Skutki wywołania funkcji Bdos są takie same jak skutki wywołania procedury 
Bdos z takimi samymi argumentami. Rezultatem funkcji jest natomiast dana 
typu byte pozostawiana przez Bdos w rejestrze A procesora. 


Funkcja BdosHL 


Wywołanie: BdosH L(Fun,Par) 
BdosH L(Fun) 


Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 


Skutki wywołania funkcji BdosHL są takie same jak skutki wywołania funkcji 
Bdos z takimi samymi argumentami, z tą różnicą, że rezultatem funkcji jest 
dana typu integer pozostawiana przez BDOS w rejestrach HL procesora. 


Procedura Bios 


Wywołanie: Bios(Fun,Par) 
Bios(Fun) 


Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 


Wykonanie procedury Bios powoduje wykonanie tej funkcji podsystemu BIOS, 
która ma numer Fun. Jeśli posłużono się argumentem Par, to przed wyko- 


naniem tej czynności w rejestrach BC procesora jest umieszczana dana 
reprezentowana przez Par. 


Funkcja Bios 


Wywołanie: Bios(Fun,Par) 
Bios(Fun) 


Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 


Skutki wywołania funkcji Bios są takie same jak skutki wywołania procedury 
Bios z takimi samymi argumentami. Rezultatem funkcji jest natomiast dana 
typu byte pozostawiana przez BIOS w rejestrze A procesora. 


Funkcja BiosHL 


Wywołanie: BiosHL(Fun,Par) 
Przyjmuje się, że Fun oraz nie wymagane Par są wyrażeniami typu integer. 
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Skutki wywołania funkcji BiosHL są takie same jak skutki wywołania funkcji 
Bios z takimi samymi argumentami, z tą różnicą, że rezultatem funkcji jest 
dana typu integer pozostawiana przez BIOS w rejestrach HL procesora. 


Programowanie w języku asemblera 


Niekiedy zachodzi potrzeba dołączenia do programu napisanego w języku 
Turbo Pascal podprogramu napisanego w asemblerze, albo przynajmniej 
potrzeba posłużenia się wstawką asemblerową. Celowi temu służą konstrukcje 
językowe wykorzystujące słowa kluczowe external i inline. 


Jeśli zamiast bloku stanowiącego ciało podprogramu występuje konstrukcja 
external literał-typu-integer 


to oznacza to, że podprogram jest napisany w języku asemblerowym i znajduje 
się w pamięci operacyjnej pod adresem określonym przez literał. Wymaga się, 
aby wykonanie takiego podprogramu nie spowodowało zmiany rejestru SP 
(rozmiaru stosu). 


Przykład 
function Factorial(Arg : byte) : integer; 
external $6000; 
e Część deklaracyjną i wykonawczą funkcji Factorial zastąpiono konstrukcją 
zawierającą słowo kluczowe external. 
e Funkcja Factorial jest napisana w języku asemblerowym, a jej kod znajduje 
się w pamięci operacyjnej począwszy od adresu $6000. m 


O ile konstrukcja external jedynie wskazuje miejsce, w którym znajduje się 
podprogram asemblerowy, o tyle instrukcja inline umożliwia wygenerowanie 
kodu asemblerowego. 

Instrukcja inline składa się ze słowa kluczowego inline, bezpośrednio po 
którym następuje ujęty w nawiasy okrągłe ciąg elementów kodu. Elementy 
kodu są oddzielone kreskami ukośnymi, a każdy z nich składa się z elementów 
danych oddzielonych od siebie znakami + (plus) albo — (minus). 


Elementem danych jest literał typu integer, identyfikator zmiennej, identy- 
fikator podprogramu oraz wyrażone za pomocą znaku * (gwiazdka) ozna- 
czenie licznika instrukcji. 


Przykład 
inline(20/$40/Fun — 2/+ + 3) u 


Każdy element danych generuje jeden bajt albo jedno słowo (dwa bajty) kodu. 
Każda wygenerowana dana wynika z wykonania działań na elementach 


11 — Turbo Pascal... 
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danych. Przyjmuje się, że identyfikator zmiennej albo podprogramu reprezen- 
tuje adres tej zmiennej albo podprogramu. Analogicznie przyjmuje się, że 
oznaczenie licznika instrukcji reprezentuje adres tego najbliższego bajtu 
pamięci, w którym zostanie umieszczony wygenerowany kod. 


Jeśli element kodu składa się wyłącznie z literałów i separatorów, a jego 
wartość mieści się w zakresie 0..255, to zostanie wygenerowany jeden bajt 
kodu. Jeśli wartość wykracza poza ten zakres, jak również wtedy, gdy element 
kodu zawiera nazwy zmiennych lub podprogramów albo odwołania do 
licznika instrukcji, jest generowane jedno słowo. W słowie tym bajt mniej 
znaczący jest generowany przed bajtem bardziej znaczącym. 


Przytoczone domniemania liczby generowanych bajtów kodu mogą zostać 
zmienione, jeśli przed elementem kodu zostanie umieszczony znak < (mniej- 
sze) albo > (większe). W pierwszym przypadku zostanie wygenerowany tylko 
mniej znaczący z tych bajtów, w których jest reprezentowana wartość elementu 
kodu, a w drugim dwa bajty i to nawet wtedy, gdy drugi z nich (bardziej 
znaczący) reprezentuje daną o wartości 0. 


Przykład 
inline (>$12 <3456) 


e Pierwszy element kodu reprezentuje daną jednobajtową, ale wobec użycia 
znaku > (większe) generuje dwa bajty: $12 i $00. 
e Drugi element kodu reprezentuje daną dwubajtową, ale wobec użycia znaku 
< (mniejsze) generuje jeden bajt: $56. 
e Przytoczona instrukcja inline generuje trzy bajty kodu: $12, $00, $56, 
w podanej kolejności. 
e Gdyby rozpatrywaną instrukcję zmieniono do postaci 

inline ($12/$3456) 


to generowałaby ona trzy bajty: $12, $56 i $34. [m 


Przykład 


(wg Turbo Pascal Reference Manual, wersja 3.0, rozdz. 22 — za zgodą Borland 
International) 


type 
AnyString = string[255]; 
procedure ToUpper(var Str : AnyString); 
begin 
inline( 
$2a/Str/ 
$46/ 
$04/ 
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end; 


505/ 

Sca/* + 20/ 
$23/ 

$7e/ 
$lfe/$61/ 
$da/* —9/ 
$fe/$7b/ 
$d2/* — 14/ 
$d6/$20/ 
577/ 

$c3/* — 20) 
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e Wykonanie przytoczonej procedury powoduje zamianę małych liter zmien- 


nej łańcuchowej, z którą skojarzono parametr Str, na duże. 


e Elementy kodu zawarte w instrukcji inline generują następujący pod- 
program asemblerowy: 


L!: 


L2: 


LD  HL,(Str) 
LD  B,(HL) 
INC B 
DEC B 

JP ZL2 
INC HL 
LD A,(HL) 
CP a 

JP CLIl 
CP z+l1 
JP NCLI 
SUB 20H 
LD (HL)A 
JP LI 


Reprezentowanie danych 


Sposób reprezentowania danych w pamięci operacyjnej jest w systemach DOS 
i CP/M niemal taki sam, gdyż mało istotna różnica dotyczy jedynie danych 
wskazujących. Znacznie ułatwia to przenoszenie programów między tymi 


systemami. 
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Dane porządkowe 


Dane typu porządkowego są reprezentowane w jednym albo w dwóch bajtach 
pamięci operacjynej. 


W jednym bajcie są reprezentowane dane typu char, dane typu wyliczeniowego 
związanego ze zbiorem liczącym nie więcej niż 256 elementów oraz dane typu 
okrojonego min.mmax, takiego, że zarówno ord(min) jak ord(max) należy do 
przedziału 0..255. W szczególności w jednym bajcie są więc reprezentowane 
dane typu boolean i byte. 


W dwóch bajtach są reprezentowane dane typu integer, dane typu okrojonego, 
które nie mogą być reprezentowane w jednym bajcie oraz dane typu wyli- 
czeniowego związanego ze zbiorem o więcej niż 256 elementach. 


W przypadku danych zajmujących dwa bajty mniej znaczącym bajtem danych 
jest pierwszy z nich. 


Przykład 
type 
Color = (Red,Green,Blue, Yellow,Orange); 
Hue = Green..Yellow; 
Selector = (enum,card,bool); 
union = record 
case Selector of 
enum: (Rng : Hue); 
card: (Int : integer); 
bool: (Log : boolean) 
end; 
const 
HueVar : union = (Rng : Green); 
begin 


with HueVar do 
Write(Int, Log :5) 
end. 


e Ponieważ ord(Green) < 255 oraz ord(Yellow) £ 255, pole Rng typu Hue jest 
reprezentowane w jednym bajcie. 
e Mniej znaczący bajt pola Int pokrywa się z bajtem pola Rng i bajtem pola 
Log. 
e Wkonanie instrukcji Write powoduje wyprowadzenie napisu 

1 TRUE O 
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Dane rzeczywiste 


Dane typu real są reprezentowane w 6 bajtach pamięci operacyjnej. 


Dane te składają się z jednobajtowego wykładnika i pięciobajtowej mantysy. 
Pod najniższym adresem pamięci występuje wykładnik, a za nim mantysa, 
w kolejności od bajtu najmniej znaczącego do najbardziej znaczącego. Wartość 
wykładnika jest reprezentowana z przesunięciem $80, a mantysa jest znormali- 
zowana i pozbawiona najbardziej znaczącego bitu. Bit ten jest wykorzystany 
do reprezentowania jej znaku. Dana rzeczywista typu real o wartości 0.0 jest 
reprezentowana przez wykładnik składający się z samych bitów O. 


Przykład 
type 
union = record 
case boolean of 
false: (Float : real); 
true: (Arr : array[0..5] of byte) 
end; 
const 
RealVar : union = (Arr : ($83,0,0,0,0,$80)); 
begin 
with RealVar do 
Write(Float) 
end. 


e Pierwszy bajt zmiennej RealVar jest daną bajtową o wartości $83, a więc 
reprezentuje wykładnik 3. 
e Bajt o wartości $80 jest najbardziej znaczącym bajtem mantysy. Reprezen- 
tuje on znak — (minus) mantysy oraz mantysę 

10000000 00000000 00000000 00000000 00000000 
Najbardziej znaczący bit tego bajtu reprezentuje znak mantysy, tu — (minus). 
e Ponieważ mantysa ma wartość —0.5, a wykładnik ma wartość 3, dana 


początkowa przypisana zmiennej RealVar ma wartość —0.5+2* = —4.0 
e Wykonanie instrukcji Write powoduje wyprowadzenie liczby —4.0. m 


Dane łańcuchowe 


Dane typu string[n] są reprezentowane w n+ 1 bajtach pamięci. Pierwszy bajt 
danej łańcuchowej określa liczbę znaków tej danej. 
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Przykład 
const 
StrVar : string[5] = Janek; 
procedure CutOff(var Par); 
var 
Len : byte absolute Par; 
begin 
Len:= Len—2 
end; 
begin 
Writeln(StrIar); 
CutOff (StrVar); 
Write(Str Var) 
end. 


e Operacja na zmiennej Len jest w istocie operacją na najbardziej znaczącym 
bajcie zmiennej StrVar. 
e Wykonanie przytoczonego programu powoduje wyprowadzenie napisu 


Janek 
Jan J 


Dane mnogościowe 
Dane typu mnogościowego, bazowane na typie porządkowym o najmniejszym 
elemencie min 1 największym elemencie max zajmują 

ord(max) div 8—ord(min) div 8+1 
bajtów pamięci. 
Dane mnogościowe są reprezentowane w taki sposób, jakby bazowy typ 
porządkowy składał się z 256 elementów. Ponieważ wymagałoby to zarezerwo- 
wania dla danej 32 bajtów pamięci, z których wiele nie byłoby w większości 


przypadków używanych, z tych 32 bajtów odrzuca się te bajty skrajne, których 
wartość nigdy nie ulega zmianie. 


W szczególności, dana typu set of 10..16 nie jest reprezentowana w postaci 
32-bajtowej (literami x oznaczono aktywne pozycje danej) 

00000000 ... 00000000 0000000x xxxxxx00 00000000 
lecz w postaci 2-bajtowej 

0000000x xxxxxx00 


w kolejności od bajtu najmniej znaczącego do najbardziej znaczącego. 
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Przykład 
type 
union = record 
case boolean of 
false : (aSet : set of 10..16); 
true : (anlnt : integer) 
end; 
const 
SetVar : union = (aŚet : ([16))); 
begin 
with SetVar do 
Wi'ite(anInt) 
end. 


e Pole aSet zajmuje 2 bajty i jest reprezentowane w pamięci operacyjnej 
w postaci 00000000 00000001. 
e Wykonanie instrukcji Write powoduje wyprowadzenie liczby 256. m 


Dane wskazujące 


Dane wskazujące są w systemach DOS i CP/M reprezentowane odmiennie. 
W systemie DOS dana wskazująca jest reprezentowana w 4, a w systemie 
CP/M w 2 bajtach pamięci każda. 


W pierwszym przypadku bardziej znacząca połowa reprezentacji danej zawiera 
numer segmentu, a mniej znacząca przemieszczenie w segmencie. Części te 
przechowywane są tak jak dane typu integer. 


W drugim przypadku dana wskazująca jest reprezentowana tak jak dana typu 
integer i określa adres pamięci operacyjnej. 


Dana reprezentowana przez nil składa się z samych bitów 0. 


Przykład 
type 
union = record 
case boolean of 
false: (Rey : *byte); 
true: (Int : integer) 


end; 
const 
PtrVar : union = (Int : O); 
begin 


Write(PtrVar = nil) 
end. 
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e W systemie DOS zmienna PtrVar zajmuje 4 bajty, a w systemie CP/M 
zajmuje 2 bajty. 
e Wykonanie instrukcji Write powoduje wyprowadzenie napisu TRUE. 0 


Dane tablicowe 


Elementy tablic są rozmieszczone w pamięci operacyjnej wierszami. 


Przykład 
type 
union = record 
case boolean of 
Jalse : (Arr : array[boolean, boolean] of byte 
true: (Vec : array[1..4] of byte) 


end; 
const 
ArrVar : union = ((11, 12),((21, 22)); 
var 
Index : 1..4; 
begin 


with ArrVar do 
for Index:= 1 to 4 do 
Write(Vec[Index] :3) 
end. 


e Wykonanie instrukcji Write powoduje wyprowadzenie liczb 11, 12, 21, 22. © 


Dane rekordowe 


Pola rekordów są rozmieszczone w pamięci operacyjnej w kolejności ich 
wystąpienia w deklaracji. Jeśli rekord nie zawiera wariantów, to jego rozmiar 
jest równy sumie rozmiarów pól. W przeciwnym razie rozmiar rekordu jest 
równy sumie rozmiaru jego części stałej i rozmiaru tego z wariantów, który 
wymaga najwięcej miejsca. Zarówno rekordy bez wariantów, jak i rekordy 
z wariantami są stałego rozmiaru. Informacja ta jest istotna z punktu widzenia 
operacji wejścia/wyjścia. 
Przykład 
var 
RecVar : record 
case Selector : integer of 
6: (Arr : array[1..3,1..2] of byte); 
8: (aSet : set of 'A'..z') 
end; 
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begin 
with RecVar do 
Write (SizeOf (RecVar), 
$izeO/ (Arr) :2, 
SizeOf (aSet) :2) 
end. 


e Część stała rekordu RecVar ma rozmiar 2 bajty. 

e Pierwszy wariant tego rekordu ma rozmiar 6 bajtów. 

e Drugi wariant ma rozmiar 8 bajtów. 

e Rekord ma rozrniar 10 bajtów. 

e Wykonanie instrukcji Write powoduje wyprowadzenie liczb 10, 61 8. 
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Chociaż tekst tego rozdziału dotyczy wyłącznie mikrokomputera IBM PC, 
przedstawione w nim środki programowe stanowią wzór dla implementacji na 
innych mikrokomputerach. Potwierdzeniem tej tezy jest pojawienie się na 
rynku analogicznych bibliotek podprogramów dla mikrokomputerów Amstrad 
6128. 


Monitor ekranowy 


Współpraca z monitorem ekranowym może odbywać się w jednym z 4 trybów 
tekstowych albo w jednym z 3 trybów graficznych. 


W trybie tekstowym ekran monitora jest podzielony na 25 wierszy, a w każdym 
wierszu znajdują się pozycje dla 40 albo 80 znaków. Na pozycjach tych mogą 
być wyświetlane znaki rozszerzonego kodu ASCII. 


W trybie graficznym ekran monitora stanowi raster składający się z 200 linii. 
W każdej linii można pobudzić do świecenia 320 albo 640 punktów. 


Zarówno w trybach tekstowych, jak i graficznych zapewniono środki do 
wyświetlania w kolorach. 
Tryby tekstowe 


Przełączenie procesora do trybu tekstowego wymaga wykonania procedury 
TextMode. 
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Procedura TextMode 


Wywołanie: TextMode(BW 40) 
TextMode(C40) 
TextMode(BW80) 
TextMode(C80) 
TextMode 


Nazwy BW40, C40, BW80 i C80 są predefiniowanymi nazwami literałów typu 
integer, o wartościach odpowiednio 0, I, 2 i 3. 


Wykonanie procedury TextMode z argumentem BW40 powoduje ustanowienie 
trybu graficznego znakowego z wyświetlaniem czarno-białym (Black and 
White) do 40 znaków w wierszu. 


Wykonanie procedury TextMode z argumentem C40 powoduje ustanowienie 
trybu znakowego z wyświetlaniem kolorowym (Color) do 40 znaków w wier- 
szu. 


Wykonanie procedury TextMode z argumentem BW80 powoduje ustanowienie 
trybu tekstowego z wyświetlaniem czarno-białym do 80 znaków w wierszu. 


Wykonanie procedury TextMode z argumentem C80 powoduje ustanowienie 
trybu znakowego z wyświetlaniem kolorowym do 80 znaków w wierszu. 


Wykonanie procedury TextMode bez argumentu powoduje ustanowienie 
ostatnio włączonego trybu tekstowego. 


W każdym przypadku ustanowienie trybu tekstowego powoduje wyczyszczenie 
ekranu, tj. zapełnienie go spacjami, a ponadto przemieszczenie kursora do 
lewego-górnego narożnika ekranu. 


Przykład 
program Ewa; 
begin 
TextMode; 
Write ( Ewa'); 
TextMode (BW40) 
end. 


e Bezpośrednio po aktywowaniu programu, ale przed wykonaniem procedury 
TextMode, ekran może zawierać znaki różne od spacji. 

e Wykonanie procedury TextMode bez argumentu powoduje wyczyszczenie 
ekranu i ustanowienie trybu tekstowego domniemanego C80. 

e Po wyczyszczeniu ekranu kursor znajduje się w jego lewym-górnym naroż- 
niku. 
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e Wykonanie instrukcji Write powoduje wyprowadzenie w pierwszym wierszu 
ekranu napisu Ewa. | 
e Wykonanie procedury TextMode z argumentem BW40 powoduje ustano- 
wienie trybu tekstowego BW40. 

e Po zakończeniu wykonywania programu wyprowadzanie na ekran pozo- 
staje w trybie BW40. [B 


W trybach tekstowych z kolorem każdy znak może być wyświetlany w jednym 
z 16 kolorów na dowolnym tle wybranym z 8 kolorów. Na kolory można 
powoływać się za pomocą literałów typu integer albo za pomocą mnemonicz- 
nych nazw tych literałów, zgodnie z zestawieniem w tabl. 20.1. Znaki mogą być 


Tablica 20.1. Mnemoniczne nazwy literałów 
oznaczających kolory 


Literał Nazwa 
0 Black (czarny) 
| Blue (niebieski) 
2 Green (zielony) 
3 Cyan (turkusowy) 
4 Red (czerwony) 
5 Magenta (karmazynowy) 
6 Brown (brązowy) 
7 LightGray (jasnoszary) 
8 DarkGray (ciemnoszary) 
9 LightBlue (jasnoniebieski) 
10 LightGreen (jasnozielony) 
11 LightCyan (jasnoturkusowy) 
12 LightRed (jasnoczerwony) 
13 LightMagenta (jasnokarmazynowy) 
14 Yellow (żółty) 
15 White (biały) 


wyświetlane zarówno w kolorach ciemnych, jak i jasnych. Tło mogą stanowić 
jedynie kolory ciemne. Należy nadmienić, że niektóre monitory kolorowe nie 
umożliwiają odróżnienia kolorów ciemnych od jasnych. W takim przypadku 
kolory jasne są wyświetlane tak jak ich ciemne odpowiedniki. 


Jeśli do liczby określającej kolor zostanie dodane 16, to wyświetlany znak 
będzie migotać. W programie można to wyrazić, posługując się predefiniowaną 
nazwą literału Blink o wartości 16. 


Określenie koloru wyświetlanych znaków odbywa się za pomocą procedury 
TextColor, a określenie koloru tła za pomocą procedury TextBackground. Dwie 
dodatkowe funkcje WhereX i WhereY umożliwiają określenie bieżącej pozycji 
kursora. 
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Procedura TextColor 


Wywołanie: TextColor(Hue) 


Przyjmuje się, że Hue jest wyrażeniem typu integer o wartości z przedziału 
0..31. 


Wykonanie procedury TextColor powoduje określenie koloru wyprowadza- 
nych znaków, zgodnie z odwzorowaniem przytoczonym w tablicy 20.1. Jeśli 
dana reprezentowana przez Hue ma wartość większą niż 15, to argument jest 
traktowany tak, jakby miał wartość Hue — 15, a wyświetlane znaki są pobudza- 
ne do migotania. 


Przykład 

program Ewalzajan; 

begin 
TextMode(C40); 
Write( Ewa); 
TextColor(Red); 
Write( Iza); 
TextColor(Green + Blink); 
Write( Jan); 
TextMode(BW80) 

end. 


e Napis Ewa zostanie wyprowadzony w kolorze domniemanym — żółtym i na 
tle domniemanym — czarnym. 
e Napis Iza zostanie wyprowadzony na tle domniemanym i w kolorze 


czerwonym. 
e Napis Jan zostanie wyprowadzony na tle domniemanym i w kolorze 
zielonym. Litery Jan będą migotać. 

e Przed zakończeniem wykonywania programu zostanie przywrócony tryb 
tekstowy BW 0. m 


Procedura TextBackground 
Wywołanie: TextBackground(Hue) 


Przyjmuje się, że Hue jest wyrażeniem typu integer reprezentującym daną 
o wartości z przedziału O..7. 


Wykonanie procedury TextBackground powoduje określenie koloru tła wy- 
świetlanych znaków. 
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Przykład 

program Jan; 

begin 
TextMode(C40) 
TextBackground(Green); 
TextColor(Brown); 
Write( Jan') 

end. 


e Napis Jan zostanie wyprowadzony w kolorze brązowym na zielonym tle. 


Funkcja WhereX 
Wywołanie: WhereX 
Funkcja WhereX jest bezparametrowa. 


Rezultatem funkcji WhereX jest dana typu integer, określająca numer kolumny 
zawierającej znak wyróżniony przez kursor. 
Przykład 
program Column; 
begin 
GotoX N20,30); 
Write(W hereX) 
end. 


e Wykonanie instrukcji Wite powoduje wyprowadzenie liczby 30. D 


Funkcja WhereY 
Wywołanie: WhereY 
Funkcja WhereY jest bezparametrowa. 


Rezultatem funkcji WhereY jest dana typu integer, określająca numer wiersza 
zawierającego znak wyróżniony przez kursor. 


Przykład 
program Default; 
begin 
TextMode; 
Write(WhereX,W hereY :2) 
end. 


e Wykonanie instrukcji Write powoduje wyprowadzenie liczb 1, 1. m 
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Tryby graficzne 


W języku Turbo Pascal zapewniono możliwość posługiwania się trzema 
trybami graficznymi ustanawianymi za pomocą wywołań procedur Graph- 
ColorMode, GraphMode i HiRes. Wywołanie każdej z tych procedur powoduje 
wyczyszczenie ekranu. 


Przed zakończeniem wykonywania programu, w którym posługiwano się 
trybem graficznym, należy zapewnić ustanowienie jednego z trybów teks- 
towych. 


Wyświetlanie graficzne może być kolorowe albo czarno-białe. Tło do wyświet- 
lania punktów, nazywanych również pikselami, może być czarne albo koloro- 
we. Kolor tła może zostać określony za pomocą procedury GraphBackground. 


Kolory pikseli mogą być wybierane z palety barw określanej za pomocą 
procedury Palette. Na monitorze kolorowym są dostępne 4 palety wyszczegól- 
nione w tabl. 20.2. Każda z palet umożliwia wybranie jednego z 4 kolorów. 


Tablica 20.2. Palety barw dla monitora kolorowego 


Numer koloru 


Paleta O zielony czerwony brązowy 


Paleta 1 turkusowy karmazynowy jasnoszary 
Paleta 2 jasnozielony jasnoczerwony żółty 
Paleta 3 jasnoturkusowy jasnokarmazynowy biały 


Paleta O 
Paleta 1 


jasnoszary 
biały 


niebieski czerwony 
jasnoniebieski jasnoczerwony 


Jeśli wyświetlanie odbywa się w trybie graficznym GraphMode, to jest ono 
czarno-białe. Tym niemniej — na monitorze RGB — istnieje możliwość 
wyboru barwy z 2 palet wyszczególnionych w tabl. 20.3. Jeśli wyświetlanie 
odbywa się w trybie graficznym wysokiej rozdzielczości, ustanawianym za 
pomocą procedury HiRes, to kolor wykresu może być określony za pomocą 
procedury HiResColor. Jeśli procedura ta nie zostanie wywołana, to wyświet- 
lanie będzie odbywać się w domniemanym kolorze białym. 


Ustanowienie trybu graficznego nie wyklucza możliwości wyprowadzania na 
ekran tekstu. Znaki takiego tekstu, wyprowadzane za pomocą procedury Write, 
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są umieszczane na takich samych pozycjach jak w trybach tekstowych. Jeśli 
tryb graficzny dopuszcza kolor, to znaki są wyświetlane w kolorze nr 3 bieżącej 
palety, na tle o kolorze nr 0. W trybie wysokiej rozdzielczości znaki są 
wyświetlane w kolorze określonym za pomocą procedury HiResColor albo 
w kolorze domniemanym — białym. 


Podstawowymi obiektami graficznymi, które można wyświetlać za pomocą 
procedur graficznych, są punkt i odcinek. Wyświetlanie punktu jest realizo- 
wane za pomocą wywołania procedury Plot, a wyświetlanie odcinka za 
pomocą wywołania procedury Draw. 


Procedura Plot 


Wywołanie: Plot(xCoord,yCoord,Color) 
Przyjmuje się, że xCoord 1 yCoord i Color są wyrażeniami typu integer. 


Wykonanie procedury Plot powoduje wyświetlenie jednego piksela w tym 
punkcie ekranu, który ma współrzędne (xCoord,yCoord). Wyświetlanie odbywa 
się w kolorze określonym przez wyrażenie Color. W trybach GraphColorMode 
i GraphMode jest brana pod uwagę bieżąca paleta barw. W trybie HiRes dla 
argumentu Color o wartości 0 następuje wyświetlenie punktu w kolorze 
czarnym. Dla argumentu Color o wartości I następuje wyświetlenie punktu 
w kolorze określonym za pomocą procedury HiResColor. 


Przykład 
Plot(0,0,1) 


e Wykonanie procedury powoduje wyświetlenie punktu w lewym-górnym 
narożniku ekranu. 

e Jeśli wyświetlanie odbywa się w ramach palety nr O, to w trybie GraphColor- 
Mode punkt ma kolor zielony, a w trybie GraphMode ma kolor niebieski. © 


Procedura Draw 


Wywołanie: Draw(x1,yl,x2,y2,Color) O 
Przyjmuje się, że x1l, yl, x2, y2 i Color są wyrażeniami typu integer. 


Wykonanie procedury Draw powoduje wyświetlenie odcinka linii prostej, 
zawartego między punktami ekranu o współrzędnych (x1, yl) i (x2, y2). 
Odcinek ten jest wyświetlany w kolorze określonym przez wyrażenie Color. 
W trybach Graph ColorMode i GraphMode jest brana pod uwagę bieżąca 
paleta barw. W trybie HiRes dla argumentu Color o wartości O wyświetlanie 
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odbywa się w kolorze czarnym, a dla argumentu Color o wartości I odbywa się 
w kolorze określonym za pomocą wywołania procedury HiResColor. 


Przykład 

Draw(0,0,639,199,1) 
e Wykonanie przytoczonej procedury w trybie HiRes powoduje wyświetlenie 
głównej przekątnej ekranu. Jeśli odbywa się to po wywołaniu procedury 
HiResColor (Red), to przekątna ta jest czerwona. [m 


Procedura Graph ColorMode 
Wywołanie: GraphColorMode 
Procedura GraphColorMode jest bezparametrowa. 


Wykonanie procedury GraphColorMode powoduje ustanowienie trybu gra- 
ficznego kolorowego 320 x 200 pikseli. W tym trybie współrzędne poziome 
pikseli przybierają wartości z przedziału 0..319, a współrzędne pionowe 
przybierają wartości z przedziału 0..199. Lewy-górny piksel ekranu ma 
współrzędne (0,0). Po wybraniu jednej z palet wyszczególnionych w tabl. 20.2 
można uzyskać wyświetlanie punktów w dowolnym z 4 kolorów tej palety. 
Kolor tła można ustalić za pomocą procedury GraphBackground. 


Przykład 

program Dot; 

begin 
GraphColorMode; 
Palette(1); 
GraphBackground(Blue); 
Plot(160,100,2); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie programu aż do instrukcji repeat wyłącznie, powoduje 
wyświetlenie w trybie graficznym kolorowym jednego punktu w środku 
ekranu. Cały ekran zostaje wypełniony kolorem tła — niebieskim, a punkt 
zostaje wyświetlony w kolorze 2 wybranej palety, tj. karmazynowym. 

e Gdyby z programu usunięto wywołania procedur Palette 1 Graph- 
Background, to domniemaną paletą byłaby paleta nr 0, a domniemanym 
kolorem tla — czarny. W takim przypadku wspomniany punkt zostałby 
wyświetlony w kolorze 2 wybranej palety, tj. czerwonym. 

e W programie posłużono się instrukcja repeat dla uniknięcia przedwczesnego 
wyczyszczenia ekranu. 0 
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Procedura GrapliMode 
Wywołanie: GraphMode 
Procedura GraphMode jest bezparametrowa. 


Wykonanie procedury GraphMode powoduje włączenie trybu graficznego 
czarno-białego 320 x 200 pikseli. W tym trybie współrzędne poziome pikseli 
przybierają wartości z przedziału 0..319, a współrzędne pionowe przybierają 
wartości z przedziału 0..199. Lewy-górny piksel ekranu ma współrzędne (0,0). 
Na monitorze RGB, takim jak np. monitor kolorowy firmy IBM, możliwe jest 
wyświetlanie kolorowe. Po wybraniu jednej z 2 palet wyszczególnionych 
w tabl. 20.3 można uzyskać wyświetlanie punktów w dowolnym z 4 kolorów tej 
palety. Kolor tła można ustalić za pomocą procedury GraphBackground. 


Przykład 

program Dot; 

begin 
GraphMode; 
Plot(160, 100,2); 
repeat until KeyPressed; 
TextMode 

end. 


e Punkt zostanie wyświetlony na domniemanym tle, które jest czarne, 
w kolorze 2 domniemanej palety, tj. palety nr O. 

e Punkt zostanie wyświetlony w kolorze czerwonym. 

e Gdyby wywołaniu procedury Plot nadano postać 


Plot(160,100,Red) 


to byłoby ono w zasadzie niepoprawne, gdyż nazwa Red reprezentuje literał 
o wartości 4, a w każdej palecie istnieją tylko kolory o numerach z przedziału 
0..3. 


e W istocie punkt zostałby wyświetlony w kolorze tła i byłby niewidoczny. O 


Procedura HiRes 
Wywołanie: HiRes 
Procedura HiRes jest bezparametrowa. 


Wykonanie procedury HiRes powoduje włączenie trybu graficznego czarno- 
-białego 640 x 200 pikseli. W tym trybie, nazywanym także trybem wysokiej 
rozdzielczości, współrzedne poziome pikseli przybierają wartości z przedziału 
0..199. Lewy-górny piksel ma współrzędne (0,0). Punkty są wyświetlane 
w jednym z kolorów wyszczególnionych w tabl. 20.1. Wybór koloru odbywa się 
za pomocą procedury HiResColor. Tło jest zawsze czarne. 
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Przykład 

program Ewa; 

begin 
HiRes; 
HiResColor(Red); 
Write( Ewa'); 
Plot(18,5,1); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie przytoczonego programu aż do instrukcji repeat wyłącznie 
powoduje wyprowadzenie na ekran napisu Ewa oraz jednego punktu świecą- 
cego. 

e Zarówno punkty tworzące napis, jak i wspomniany punkt świetlny są 
wyprowadzane w kolorze czerwonym. 

e Współrzędne punktu są tak dobrane, że jest on wyświetlany we wnętrzu 
obszaru otoczonego „brzuszkiem” litery a. 

e Gdyby z programu usunięto wywołanie procedury HiResColor, to wszystkie 
punkty zostałyby wyświetlone w kolorze domniemanym — białym. c 


Procedura HiResColor 
Wywołanie: HiResColor( Hue) 


Przyjmuje się, że Hue jest wyrażeniem typu integer reprezentującym daną 
o wartości z przedziału 0..15. Związek wartości z kolorami wynika z tabl. 20.1. 


Wykonanie procedury HiResColor powoduje określenie koloru punktów 
wyświetlanych w trybie graficznym wysokiej rozdzielczości. Wywołanie w tym 
trybie procedury HiResColor powoduje natychmiastowa zmianę koloru 
wszystkich właśnie wyświetlanych punktów. 


Przykład 
program Secret; 
begin 
HiRes; 
HiResColor(Black); 
Write( Jan); 
repeat until KeyPressed; 
Delay(10000); 
TextMode 
end. m 
e Wykonanie procedury Write powoduje wyprowadzienie napisu Jan. 
e Napis ten jest niewidoczny, ponieważ wyświetlanie odbywa się w kolorze tła. 
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e Po wprowadzeniu z klawiatury dowolnego znaku, np. spacji, na ekranie 
ujawnia się czerwony napis Jan i po 10 sekundach znika. m 


Procedura Palette 
Wywołanie: Palette(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury Palette powoduje wybranie palety o numerze określo- 
nym przez Num. W trybie GraphColorMode są dostępne palety o numerach 
z przedziału 0..1, przytoczone w tabl. 20.3. 


Przykład 

program ChangeColors; 

begin 
GraphColorMode; 
Palette(1); 
Plot(0,0,1); 
Plot(199,319,2); 
repcat until KceyPressed; 
Palette(0) 
Delay(10000); 
TexuMode 

end. 


e Wykonanie procedury Plot powoduje wyświetlenie dwóch punktów: jednego 
w kolorze turkusowym i drugiego w kolorze karmazynowym. 

e Po wprowadzeniu z klawiatury dowolnego znaku następuje zmiana palety. 
Punkt w kolorze turkusowym zmienia kolor na zielony, a punkt w kolorze 
karmazynowym zmienia kolor na czerwony. 

e Po upływie 10 sekund obraz znika. (m 


Procedura GraphBackground 
Wywołanie: GraphBackground(Hue) 


Przyjmuje się, że Hue jest wyrażeniem typu integer. 

Wykonanie procedury GraphBackground powoduje określenie koloru tła na 
podstawie wartości danej reprezentowanej przez wyrażenie Hue. Odwzoro- 
wanie wartości liczbowych na kolory przytoczono w tabl. 20.1. Wykonanie 
omawianej procedury w trybie graficznym HiRes nie ma żadnych skutków. 
W trybie tekstowym następuje jedynie zmiana koloru obrzeża ekranu. 
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Przykład 

program Vanish; 

begin 
GraphColor Mode; 
Plot(0,0,2); 
repeat until KeyPressed; 
GraphBackground(Red); 
Delay(10000); 
TextMode 

end. 


e Wykonanie procedury Plot powoduje wyświetlenie na czarnym tle jednego 
czerwonego punktu. 


e Po wprowadzeniu z klawiatury dowolnego znaku następuje zmiana tła na 
czerwone. Powoduje to, że wyświetlony uprzednio punkt zlewa się z nowym 
tłem i przestaje być widoczny. [u 


Definiowanie okien 


W normalnych warunkach wykonywanie operacji ekranowych może dotyczyć 
całego ekranu. W języku Turbo Pascal jest. ponadto możliwe definiowanie 
fragmentu ekranu jako okna i wykonywanie operacji ekranowych tak, jakby to 
okno zajmowało cały dostępny ekran. 


Do definiowania okna tekstowego służy procedura Window, a do definiowania 
okna graficznego procedura GraphWindow. W każdej chwili może być zdefinio- 
wane tylko jedno okno. Można przyjąć, że bezpośrednio po ustanowieniu 
trybu tekstowego albo graficznego zostaje niejawnie ustalone odpowiednio 
okno tekstowe albo graficzne. Kształt i rozmiary takiego okna pokrywają się 
z kształtem i rozmiarami ekranu. Należy nadmienić, że definiowane mogą być 
tylko okna prostokątne. Zdefiniowanie okna nie powoduje zmiany obrazu na 
ekranie. 


Na rysunku 20.1 przedstawiono przykładowe okno dla trybu tekstowego 
BWS80, a na rys. 20.2 — przykładowe okno dla trybu graficznego wysokiej 
rozdzielczości. Położenie okien dobrano w taki sposób, aby stanowiły ono lewe 
połowy ekranu. 

Procedura Window 

Wywołanie: Window(xMin,yMin,xMax,yMax) 

Przyjmuje się, że xMin, yMin, xMax i yMax są wyrażeniami typu integer. 


Wykonanie procedury Window powoduje zdefiniowanie okna tekstowego, 
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(1,1) 
KA4; 


74 
(39,25) (319,99) 
Rys. 20.1 Okno tekstowe Rys. 20.2 Okno graficzne 


którego lewy-górny narożnik ma współrzędne znakowe (xMin,yMin), a 
prawy-dolny narożnik ma współrzędne znakowe (xMax,yMax). Wymaga się, 
aby tak zdefiniowane okno miało co najmniej rozmiary 2x2 znaki. Można 
przyjąć, że w chwili ustanowienia trybów tekstowych BW40 i C40 zostaje 
niejawnie wykonana instrukcja 


W indow(1,1,40,25) 


a w chwili ustanowienia trybów tekstowych BW40 i C80 zostaje niejawnie 
wykonana instrukcja 


Window(1,1,80,25) 


Po wykonaniu procedury Window wszystkie współrzędne ekranu występujące 
poza wywołaniem procedury Window są liczone względem nowego okna. 
Dotyczy to w szczególności wykonania procedury GotoX Y. 


Przykład 

program JanAndEwa; 

var 
Ch : char; 

begin 
TextMode(BW40); 
W indow(10,10,20,20); 
GotoX Y (2,2); 
Write( Jan '); 
Read(Kbd,Ch); 
Window(1,1,20,20); 
GotoX Y(11,11); 
Write( Ewa'); 
repeat until KeyPressed 

end. 
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e Bezpośrednio po rozpoczęciu wykonywania programu zostaje ustanowione 
okno tekstowe domniemane (1,1,80,25). 

e Podczas wykonywania instrukcji TextMode(BW40) zostaje ustanowione 
okno tekstowe (1,1,40,25). 

e Po wykonaniu instrukcji Window(10,10,20,20) zostaje ustanowione okno 
tekstowe (10,10.20,20). 

e Wykonanie przytoczonego programu powoduje wyprowadzenie napisu Jan, 
a po wprowadzeniu z klawiatury dowolnego znaku, zastąpienie trzech liter 
tego napisu trzema literami napisu Ewa. [m 


Procedura GraphWindow 
Wywołanie: GraphWindow(xMin,yMin,xMax,yMax) 
Przyjmuje się, że xMin, yMin, xMax, i yMax są wyrażeniami typu integer. 


Wykonanie procedury GraphWindow powoduje zdefiniowanie okna graficz- 
nego, którego lewy-górny narożnik ma współrzędne pikselowe (xMin, yMin), 
a prawy-dolny narożnik ma współrzędne pikselowe (xMax,yMax). Można 
przyjąć, że w chwili ustanowienia trybu graficznego wysokiej rozdzielczości 
zostaje niejawnie wykonana instrukcja 


Graph W indow(0,0,639,199) 
a w chwili ustanowienia dowolnego z pozostałych trybów graficznych zostaje 
niejawnie wykonana instrukcja 


GraphW indow(0,0,319,199) 


Po wykonaniu procedury GraphWindow wszystkie współrzędne ekranu wy- 
stępujące poza wywołaniem procedury Window są liczone względem nowego 
okna, a wykreślaniu podlegają tylko te punkty, których współrzędne znajdują 
się wewnątrz okna. 


Przykład 

program Diagonal; 

begin 
HiRes; 
HiResColor(White); 
GraphW indow(20,20,50,50); 
Draw(0,0,30,0, 1); 
Draw(30,0, 30,30, 1); 
Draw(30,30,0,30, 1); 
Draw(0,30,0,0, 1); 
Draw(0,0,40,40, 1); 
repeat until KeyPressed; 
TextMode 

end. 
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e Po zdefiniowaniu okna o wymiarach 30x30 zostaje wykreślone jego 
obrzeże. 

e Ostatnia instrukcja Draw służy do wykreślenia głównej przekątnej okna. 
Odcinek wyznaczony przez współrzędne (30,30) i (40,40) znajduje się poza 
oknem i nie jest wykreślany. Z tego powodu ostatnia instrukcja Draw jest 
wykonywana tak jak instrukcja 


Draw(0,0, 30,30, 1) [m 


Rozszerzenia biblioteczne 


W zakres oprogramowania grafiki podstawowej wchodzą jedynie procedury do 
przełączania monitora między trybami znakowymi i graficznymi, procedury do 
wykreślania punktów i odcinków oraz podprogramy do zarządzania kolorami 
oraz ustalania pozycji kursora w trybach tekstowych. 


Pozostałe podprogramy graficzne nie są już integralnie związane z językiem 
Turbo Pascal i pochodzą z bibliotek, które muszą być jawnie wskazane 
podczas kompilowania programu. 


Wraz z systemem Turbo Pascal dla IBM PC jest dostarczana biblioteka 
źródłowa GRAPH.P zawierająca deklaracje podprogramów graficznych za- 
wartych w bibliotece GRAPH.BIN. Podprogramy tej biblioteki są napisane 
w asemblerze, czemu zawdzięczają swoją dużą efektywność. 


e W celu posłużenia się biblioteką graficzną zawartą w zbiorze GRAPH.BIN 
należy dokonać włączenia jej deklaracji. Odbywa się to za pomocą dyrektywy 


(Si GRAPH.P ) 


Dyrektywa ta może wystąpić w dowolnym miejscu, w którym mogą wystąpić 
deklaracje podprogramów, ale musi poprzedzać odwołania do podprogramów 
z biblioteki GRAPH.BIN. 


Argumentami szeregu podprogramów biblioteki GRAPH.BIN są wyrażenia 
określające kolor obiektu, np. punktu, łuku albo okręgu. Przyjmuje się, że jeżeli 
takie wyrażenie ma wartość nieujemną, to określa numer barwy bieżącej 
palety. Jeśli ma wartość — 1, to kolor punktów tworzących obiekt wyniknie 
z rozpatrzenia kolorów tych punktów ekranu na których obiekt zostanie 
wykreślony. 

Bezpośrednio po ustanowieniu trybu graficznego obowiązuje ustalenie, że 
wykreślanie w „kolorze” —1 jest wykreślaniem w kolorze punktów ekranu. 
Ustalenie to może być zmienione za pomocą procedury Color Table. Procedura 
ta zostanie omówiona jako pierwsza, ponieważ z oferowanych przez nią 
możliwości można korzystać w większości z pozostałych procedur. 
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Procedura Color Table 
Wywołanie: ColorTable(Hue 0, Hue 1, Hue 2, Hue 3) 
Przyjmuje się, że Hue0, Huel, Hue2 i Hue3 są wyrażeniami typu integer. 


Wykonanie procedury ColorTable powoduje zdefiniowanie wektora barw, 
branego pod uwagę podczas wyświetlania punktów w „kolorze” — 1. W ogól- 
nym przypadku argument Hue, określa, na jaki kolor ma być zmieniony kolor 
punktu wyświetlanego w kolorze i. W szczególności dla trybu HiRes, 


wykonanie procedury 

Color Table(1,0, 1,0) 
powoduje, że wyświetlenie punktu w pewnym miejscu ekranu zmienia kolor 
tego punktu z koloru tła na kolor określony , :zez procedurę HiResColor 
i odwrotnie. 


Przykład 

program ColorŚwitch; 

($i Graph.p ) 

var 
i: byte; 

begin 
GraphColorMode; 
Palette(1); 
for i:=Q0 to 10 do 

Draw(i,0,319, 199 —i, 2); 

Color Table(3, 2, 1,0); 
Draw(319,0,0, 199, — 1); 
repeat until KeyPressed; 
TextMode 

end. 


e Ponieważ w programie ColorSwitch odwołano się do procedury Color Table 
należącej do zbioru GRAPH.BIN, konieczne było użycie dyrektywy włączenia 


zbioru. 
e Wykonanie pierwszej instrukcji cyklu powoduje wykreślenie paska wzdłuż 


głównej przekątnej ekranu. Pasek ten jest wykreślany w kolorze karmazynowym, 
gdyż obowiązuje jeszcze domniemanie 

Color Table(0, 1,2, 3) 
e Wykonanie drugiej procedury Draw powoduje wykreślenie drugiej przekąt- 
nej ekranu. Ponieważ odbywa się to po wykonaniu instrukcji 


Color Table(3,2, 1,0) 
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przekątna ta jest wykreślana w kolorze jasnoszarym, z wyjątkiem punktu 
przecięcia z przekątną główną, który jest wykreślany w kolorze turkusowym. D 


Procedura Arc 
Wywołanie: Arc(xCoord, yCoord, Angle, Radius, Color) 


Przyjmuje się, że xCoord, yCoord, Angle, Radius i Color są wyrażeniami typu 
integer. 


Wykonanie procedury Arc powoduje wykreślenie łuku okręgu o promieniu 
Radius i w kolorze Color. Wykreślanie łuku rozpoczyna się w punkcie 
o współrzędnych (xCoord,yCoord). Argument Angle określa kąt łuku wyrażony 
w stopniach. Jeśli Angle > O, to łuk jest wykreślany w kierunku zgodnym 
z ruchem wskazówek zegara. Jeśli Angle < 0, to jest wykreślany w kierunku 
przeciwnym. Jeśli argument Color reprezentuje daną o wartości — I, to kolor 
poszczególnych punktów łuku jest określony poprzez wektor barw. 


Przykład 

program Quadrant; 

($i Graph.p ) 

begin 
HiRes; 
HiResColor(Red); 
Arc(0, 199, — 180, 100, 1) 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury Arc powoduje wykreślenie półokręgu opartego na 
lewej krawędzi ekranu jako na średnicy. Półokrąg jest wykreślany w kolorze 
czerwonym. (MB) 


Procedura Circle 


Wywołanie: Circle(xCoord, yCoord, Radius, Color) 
Przyjmuje się, że xCoord, yCoord, Radius i Color są wyrażeniami typu integer. 


Wykonanie procedury Circle powoduje wykreślenie okręgu o promieniu 
Radius i środku w punkcie o współrzędnych (xCoord,yCoord). Okrąg jest 
wykreślany w kolorze Color i w trybach graficznych 320 x 200 pikseli ma taki 
sam rozmiar w kierunku pionowym i poziomym. W trybie 640 x 200 pikseli ma 
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natomiast postać elipsy. Jeśli argument Color reprezentuje daną o wartości — I, 
to kolor poszczególnych punktów ekranu jest określony poprzez wektor barw. 


Przykład 

program PerfectCircle; 

($i Graph.p | 

begin 
GraphMode; 
Circle(99,99,99, 1); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury Circle powoduje wykreślenie największego okręgu, 
jaki bez obcięć mieści się na ekranie. Okrąg ten jest styczny do lewej oraz 
górnej krawędzi ekranu. m 


Procedura Pattern 
Wywołanie: Pattern(Vector) 
Przyjmuje się, że Vector jest nazwą tablicy typu array[0..7] of byte. 


Wykonanie procedury Pattern powoduje ustalenie wzoru wykorzystywanego 
do wypełniania obszaru przez procedurę FillPattern. Wzór ma postać tablicy 
8 x 8 bitów i pojawia się na ekranie lustrzanie odbity zarówno w osi pionowej 
jak i poziomej. Z tego powodu, np. dla uzyskania na ekranie grupy strzałek 
zwróconych w kierunku prawego-górnego narożnika ekranu należy wyznaczyć 
kody wspomnianej tablicy 8x8 ze strzałką zwróconą w kierunku lewe- 
go-dolnego rogu ekranu, tak jak pokazano to na rys. 20.3. 


Kod (szesnastkowo) 


Rys. 20.3 Projektowanie wzoru 


188 20. Podstawy grafiki dla IBM PC 


Przykład 

program Arrows; 

1$i Graph.p ) 

const 
Arrow : array[0..7] of byte = 

(500, 502,504, 508, $90, $a0, $cO, $f0); 

begin 
HiRes: 
Pattern(Arrow); 
FillPattern (0,0,639,199, 1); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie instrukcji programu Arrows aż do instrukcji repeat wyłącznie 
powoduje wyświetlenie na ekranie strzałek skierowanych w stronę prawego- 
-górnego narożnika ekranu. m 


Procedura FillPattern 


Wywołanie: FillPattern(xMin,yMin,xMax, yMax,Color) 


Przyjmuje się, że xMin, yMin, xMax, yMax i Color są wyrażeniami typu 
integer. 


Wykonanie procedury FillPattera powoduje wypełnienie prostokątnego 
obszaru wyznaczonego przez współrzędne (xMin,yMin) i (xMax,yMax) 
wzorem w kolorze o numerze Color, określonym przez procedurę Pattern. 
Wzór do wypełniania obszaru ma rozmiary 8x8 pikseli. Po umieszczeniu 
w lewym-dolnym rogu wypełnianego obszaru jest on powielany od dołu do 
góry i od lewej do prawej. Te bity wzoru, które mają wartość O, nie powodują 
zmiany koloru punktów ekranu. 


Przykład 
program Stripes; 
($i Graph.p ) 
const 
PatternArray : array[0..7] of byte = 
(599,$99,599,599,$99,$99,599,$99); 
begin 
GraphColorMode; 
FillScreen(2); 
Pattern(PatternArray); 
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FillPattern(2,0,5,199,3); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury FillScreen powoduje wypełnienie całego ekranu 
punktami w kolorze czerwonym. 

e Wykonanie procedury Pattern powoduje zdefiniowanie wzoru mającego 
postać trzech pasków pionowych, z których środkowy jest szerszy. 

e Wykonanie procedury FillPattern powoduje pojawienie się na ekranie 
dwóch pasków pionowych w kolorze brązowym. Paski są tej samej szerokości, 
ponieważ szerszy podlega obcięciu na pionowej granicy obszaru. [m 


Procedura FillScreen 
Wywołanie: FillScreen(Color) 
Przyjmuje się, że Color jest wyrażeniem typu integer. 


Wykonanie procedury FillScreen powoduje wypełnienie akiywnego okna 
graficznego punktami w kolorze Color. Jeśli azgument Color reprezentuje daną 
o wartości —l, to kolor poszczególnych punktów wypełniających okno jest 
określony przez wektor barw. 


Przykład 

program InvertScreen; 

($i Graph.p ) 

begin 
GraphColorMode; 
Draw(0,0,319,199,2); 
Delay(5000); 
Color Table(3,2, 1,0); 
FillScreen( — 1); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury Draw powoduje wykreślenie głównej przekątnej 


ekranu w kolorze czerwonym. 
e Po upływie 5 sekund następuje inwersja kolorów określona przez wektor 


barw. Przekątna przybiera kolor zielony, a pozostała część ekranu kolor 
brązowy. jm 
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Procedura FillShape 
Wywołanie: FillShape(xCoord,yCoord, FillColor, BorderColor) 


Przyjmuje się, że xCoord, yCoord, FillColor i BorderColor są wyrażeniami typu 
integer. 


Wykonanie procedury FillShape powoduje zlokalizowanie punktu o współ- 
rzędnych (xCoord,yCoord), a następnie wypełnienie obszaru otaczającego ten 
punkt — punktami w kolorze FillColor. Zakłada się, że obrzeże obszaru 
otaczającego wspomniany punkt ma kolor BorderColor. Wymaga się, aby 
kolor wypełniający nie był kolorem tła. 


Przykład 

program FillUp,; 

($i Graph.o ) 

begin 
HiRes; 
GotoX 2, 1); 
Write( Ewa'); 
FillShape(2,2, 1,1); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury FillShape powoduje takie zapełnienie ekranu, że 
pozostaną na nim tylko trzy czarne punkty. Stanowią one wnętrze litery 
a pochodzącej ze słowa Ewa. 

e Wypełnienie całego ekranu wynika stąd, iż można przyjąć, że zewnętrzne 
obrzeże obszaru występuje poza ekranem, a więc ekran wypełniany jest aż do 
jego brzegów. [m 


Procedura GetPic 
Wywołanie: GetPic(Buffer,xMin,yMin,xMax,yMax) 


Przyjmuje się, że Buffer jest nazwą zmiennej dowolnego typu, natomiast xMin, 
yMin, xMax i yMax są wyrażeniami typu integer. 


Wykonanie procedury GetPic powoduje skopiowanie zawartości pamięci 
ekranu związanej z prostokątem o współrzędnych przeciwległych narożników 
(xMin, yMin) i (xMax, yMax) do obszaru pamięci operacyjnej zajmowanego 
przez zmienną Buffer. Wymaga się, aby rozmiar obszaru przydzielonego 
zmiennej Buffer był nie mniejszy niż to wynika z przytoczonych poniżej 
wzorów: 
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dla trybów 320 x 200 pikseli: 
((Hor+3) div 4) + Ver x 2+6 
dla trybu 640 x 200 pikseli: 


((Hor+ 7) div 8) + Ver+-6 
gdzie: 

Hor = abs(xMin — xMax) +1 

Ver =abs(yMin — yMax) +1 


Sposób reprezentowania obrazu w zmiennej Buffer jest taki, że pierwsze 3 pary 
bajtów stanowią nagłówek obrazu, a pozostałe zawierają dane o obrazie. 
Nagłówek zawiera kolejno: określenie trybu graficznego (1 dla 640 x 200; 2 dla 
320 x 200), szerokość obrazu i wysokość obrazu. Szerokość jest zaokrąglona do 
pełnych bajtów. Kopiowanie zawartości pamięci ekranu odbywa się wierszami, 
od wiersza najniższego do najwyższego i od lewej do prawej. Skrajne-lewe 
piksele wierszy stają się najbardziej znaczącymi bitami bajtów danych. 


Przykład 
program Save; 
($i Graph.p ) 
var 
SaveArea : record 
Mode : integer; 
Hor,Ver : integer; 
Data : array[0..199] of byte 
end. 
begin 
HiRes; 
Draw(0,0,0, 199, 1); 
GetPic(SaveArea,0,0,0, 199); 


end. 


Wykonanie procedury GetPic jest w rozpatrywanym kontekście równoważne 
wykonaniu instrukcji 


with SaveArea do begin 


Mode := l; 
Hor:= l; 
Ver := 200; 


for i:= (O to 199 do 
Data[i] := $80 
end [m 
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Procedura PutPic 
Wywołanie: PutPic(Buffer,xCoord,yCoord) 


Przyjmuje się, że Buffer jest nazwą zmiennej dowolnego typu, natomiast 
xCoord i yCoord są wyrażeniami typu integer. 


Wykonanie procedury PutPic powoduje umieszczenie na ekranie prostokąt- 
nego obrazu zapamiętanego za pomocą procedury GetPic. Obraz jest umiesz- 
czony na ekranie w taki sposób, że jego lewy-dolny narożnik zajmuje pozycję 
o współrzędnych (xCoord,yCoord). Ustalanie koloru wyświetlanych bitów 
odbywa się przez wektor barw. 


Przykład 

program CopyLine; 

($i Graph.p ) 

var 
SaveArea : array[1..206] of byte: 

begin 
HiRes; 
Draw(0,0,0, 199,1); 
GetPic(SaveArea,0,0,0, 199); 
PutPic(SaveArea, 639, 199); 
repeat until KeyPressed; 
TextMode 

end. 


e Wykonanie procedury PutPic ma w rozpatrywanym kontekście taki sam 
skutek jak wykonanie procedury 


Draw(639,0,639,199, 1) [M 


Funkcja GetDotColor 
Wywołanie: GetDotColor(xCoord, yCoord) 
Przyjmuje się, że xCoord i yCoord są wyrażeniami typu integer. 


Rezultatem funkcji GetDotColor jest dana typu integer określająca kolor 
punktu ekranu o współrzędnych (xCoord,yCoord). Kolor jest określany 
w ramach bieżącej palety. Jeśli współrzędne punktu wykraczają poza okienko, 
to rezultatem funkcji jest dana o wartości —1. 


Przykład 
program Color; 
($i Graph.p ) 
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begin 
GraphColorM ode; 
Palette(1); 
Color Table(2, 1,0, 3); 
Plot(0,0, — 1); 
Delay(5000); 
Palette(0); 
GotoXx M1, 1); 
Write(GetDotColor(0,0)) 
repeat until KeyPressed; 
TextMode 

end. 


e Punkt o współrzędnych (0,0) zostaje wyświetlony w kolorze karmazynowym. 
Po upływie 5 sekund jego kolor zmienia się na czerwony. 
e Wykonanie procedury Write powoduje wyprowadzenie liczby 2. m 


Grafika żółwiowa 


Idea grafiki żółwiowej wiąże się z pojęciem „żółwia”, który poruszając się po 
ekranie kreśli odcinki linii prostych. Ponieważ odcinki te mogą być dowolnie 
krótkie i niemal dowolnie zorientowane, nic nie stoi na przeszkodzie, aby 
figury kreślone przez żółwia miały nie tylko postać łamanych, ale również 
postać dowolnych aproksymowanych przez nie linii krzywych. 


Wykonywanie wykresów żółwiowych jest możliwe w dowolnym z trybów 
graficznych i wymaga — jak uprzednio — zbioru GRAPH.P. Same procedury 
żółwiowe znajdują się oczywiście w zbiorze GRAPH.BIN. 


Na ekranie monitora żółw jest przedstawiony w postaci małego trójkąta, który 
może być dowolnie przesuwany i obracany. Bezpośrednio po aktywowaniu 
trybu graficznego trójkąt ten jest niewidoczny. jednak istnieje procedura, której 
wykonanie powoduje przywołanie żółwia na ekran. Ma on wówczas kolor nr 


3 bieżącej palety barw. 


Wykresy żółwiowe dokonują się w obszarze ekranu, który będzie tu nazywany 
oknem żółwiowym. Bezpośrednio po ustanowieniu trybu graficznego takim 
oknem jest cały ekran. Zakres dostępnych współrzędnych zależy wówczas od 
aktualnego trybu graficznego zgodnie z następującym zestawieniem: 


tryb 320 x 200 pikseli: 

x = —159..160; y = —99..100 
tryb 640 x 200 pikseli: 

x = —319..320; y = —99..100 


13 — Turbo Pascal... 
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Poczatek układu współrzędnych żółwiowych znajduje się zawsze w środku 
okna. Bezpośrednio po ustanowieniu trybu graficznego żółw znajduje się 
w punkcie (0,0) i jest skierowany do góry. 


Z żółwiem jest związane pióro, które może być podniesione albo opuszczone. 
Jeśli jest opuszczone, to podczas ruchu żółwia w obszarze okna, kreśli ono linię 
prostą. 


Bezpośrednio po ustanowieniu okna żółwiowego, które przez domniemanie 
pokrywa się z oknem graficznym, przemieszczenie żółwia poza okno czyni go 
niewidocznym. Widoczność żółwia można przywrócić sprowadzając go do 
obszaru okna albo wykonując procedurę Wap. Po jej wykonaniu wszystkie 
współrzędne żółwiowe będą brane modulo rozmiary okna, co m.in. spowoduje, 
że przekroczenie przez żółwia np. górnej krawędzi okna uczyni go widocznym 
w pobliżu krawędzi dolnej. 


Liczba podprogramów umożliwiających realizowanie grafiki żółwiowej jest 
dość znaczna. Te, które zostaly zrealizowane w implementacji dla IBM PC 
zostaną tu przytoczone w porządku alfabetycznym. 


Procedura Back 

Wywołanie: Back(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 

Wykonanie procedury Back powoduje przemieszczenie żółwia w kierunku „do 
tyłu” o Num pikseli. Jeśli Num reprzentuje daną o wartości ujemnej, to żółw 
przemieszcza się do przodu. Jeśli pióro związane z żółwiem jest opuszczone, to 
przemieszczanie się żółwia może powodować kreślenie linii. 

Procedura ClearScreen 

Wywołanie: ClearŚcreen 


Procedura ClearŚcreen jest bezparametrowa. 


Wykonanie procedury ClearScreen powoduje wyczyszczenie aktywnego okna 
i przemieszczenie żółwia do pozycji o współrzędnych (0,0), znajdującej się 
w środku okna. Po wykonaniu tej operacji żółw jest niewidoczny, a pióro 
związane z żółwiem — opuszczone. 

Procedura Forwd 


Wywołanie: Forwd(Num) 


Przyjmuje się, że Num jest wyrażeniem typu integer. 
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Wykonanie procedury Forwd powoduje przemieszczenie żółwia w kierunku 
„do przodu” o Num pikseli. Jeśli Num reprezentuje daną o wartości ujemnej, to 
żółw przemieszcza się do tyłu. Jeśli pióro związane z żółwiem jest opuszczone, 
to przemieszczanie się żółwia może powodować kreślenie linii. 


Funkcja Heading 
Wywołanie: Heading 
Funkcja Heading jest bezparametrowa. 


Rezultatem funkcji Heading jest dana typu integer, której wartość określa 
kierunek, w którym jest zwrócony żółw. Kierunek jest określany z dokład- 
nością do 1 stopnia. Wartość 0 oznacza kierunek „do góry”, a kolejne wartości 
dodatnie, aż do 359 włącznie, oznaczają kierunki tworzone przez obrót zgodnie 
z ruchem wskazówek zegara. 


Procedura Hide Turtle 
Wywołanie: Hide Turtle 
Procedura HideTurtle jest bezparametrowa. 


Wykonanie procedury HideTurtle powoduje, że żółw staje się niewidoczny. 
Niewidoczność żółwia nie pozbawia go jednak innych właściwości, jak np. 
zdolności do przemieszczania się albo do kreślenia linii. 


Procedura Home 
Wywołanie: Home 
Procedura Home jest bezparametrowa. 


Wykonanie procedury Home powoduje umieszczenie żółwia w pozycji począ- 
tkowej, tj. w punkcie o współrzędnych (0,0) i nadanie mu kierunku „do góry”. 
Zmiana pozycji żółwia nigdy nie powoduje kreślenia linii. 


Procedura NoWrap 
Wywołanie: NoWrap 
Procedura NoWrap jest bezparametrowa. 


Wykonanie procedury NoWrap powoduje, że przemieszczenie żółwia poza 
okno czyni go niewidocznym. 
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Procedura PenDown 

Wywołanie: PenDown 

Procedura PenDown jest bezparametrowa. 

Wykonanie procedury PenDown powoduje opuszczenie pióra związanego 
z żółwiem. Spowoduje to, że przemieszczanie się żółwia będzie w obrębie 
ekranu powodować kreślenie linii. 

Procedura PenUp 

Wywołanie: PenUp 


Procedura PenUp jest bezparametrowa. 


Wykonanie procedury PenUp powoduje podniesienie pióra związanego z 
żółwiem. Spowoduje to, że przemieszczanie się żółwia nie będzie powodować 
kreślenia linii. | 

Procedura SetHeading 

Wywołanie: SetHeading(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury SetHeading powoduje zwrócenie żółwia w kierunku 
określonym przez Num. Kierunek jest określany z dokładnością do 1 stopnia. 
Wartość 0 oznacza kierunek „do góry”, a kolejne wartości dodatnie, aż do 359 
włącznie, oznaczają kierunki tworzone przez obrót zgodnie z ruchem wska- 
zówek zegara. 


Procedura SetPenColor 
Wywołanie: SetPenColor(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury SetPenColor powoduje wybranie koloru używanego do 
kreślenia linii. Kolor jest wybierany z bieżącej palety barw, zgodnie z zasadami 
jak dla odpowiednich trybów graficznych. W szczególności posłużenie się 
kolorem reprezentowanym przez —1 powoduje odwołanie się do wektora 
barw. 


Procedura SetPosition 
Wywołanie: SetPosition(xCoord,yCoord) 


Przyjmuje się, że xCoord 1 yCoord są wyrażeniami typu integer. 
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Wykonanie procedury SetPosition powoduje umieszczenie żółwia w pozycji 
o współrzędnych (xCoord,yCoord). Zmiana pozycji żółwia nigdy nie powoduje 
kreślenia linii. Wykonanie procedury SetPosition(0,0) jest równoważne wyko- 
naniu procedury Home. 

Procedura Show Turtle 

Wywołanie: Show Title 


Procedura Show Tirtle jest bezparametrowa. 


Wykonanie procedury SlowTurtle powoduje, że żółw staje się widoczny. 


Procedura TiurnLefi 
Wywołanie: TurnLeft(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury TirnLeft powoduje obrót żółwia „w lewo” o liczbę 
stopni określoną przez Num. Jeśli Num reprezentuje daną o wartości ujemnej, 
to obrót następuje w prawo. 


Procedura TurnRight 
Wywołanie: TiurnRight(Num) 


Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury TurnRight powoduje obrót żółwia „w prawo” o liczbę 
stopni określoną przez Num. Jeśli Num reprezentuje daną o wartości ujemnej, 
to obrót następuje w lewo. 


Procedura TurtleWindow 
Wywołanie: TirtleWindow(xCooord,yCoord,Hor, Ver) 
Przyjmuje się, że xCoord, yCoord, Hor i Ver są wyrażeniami typu integer. 


Wykonanie procedury TirtleWindow powoduje utworzenie okna żółwiowego. 
Środek tego okna znajduje się w punkcie o współrzędnych (xCoord, yCoord), 
a okno liczy Hor pikseli w poziomie i Ver pikseli w pionie. Bezpośrednio po 
ustanowieniu trybu graficznego oknem żółwiowym jest cały ekran. Oznacza to, 
że w trybach 320x 200 pikseli zostaje niejawnie wykonana procedura 


TiurtleW indow(159,99,320,200) 
a w trybie 640 x 200 pikseli zostaje niejawnie wykonana procedura 
TurtleWindow(319,99,640,200) 
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Funkcja TurtleT'here 
Wywołanie: TtrtleThere 
Funkcja TirtleT'here jest bezparametrowa. 


Rezultatem funkcji TurtleThere jest dana typu boolean wyrażająca praw- 
dziwość zdania „żółw jest widoczny”. 


Procedura Wrap 
Wywołanie: Wrap 
Procedura Wrap jest bezparametrowa. 


Wykonanie procedury Wrap powoduje, że przemieszczenie się żółwia poza 
okno jest traktowane tak, jakby żółw znalazł się w punkcie o współrzędnych 
wziętych modulo rozmiary okna. 


Funkcja xCor 
Wywołanie: xCor 
Funkcja xCor jest bezparametrowa. 


Rezultatem funkcji xCor jest dana typu integer, określająca odciętą bieżącej 
pozycji żółwia. 


Funkcja yCor 
Wywołanie: yCor 
Funkcja yCor jest bezparametrowa. 


Rezultatem funkcji yCor jest dana typu integer, określająca rzędna bieżącej 
pozycji żółwia. 
Przykład 
program Polygon; 
($i Graph.p ) 
var 
aStep,iiNum : byte; 
begin 
Read(Num); 
while Num > 2 do begin 
GraphColor Mode; 
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PenUp; 

Back(50) 

PenDown; 

TurnLeft (90); 

aStep := trunc(360 / Num); 

for ii= 1 to Num do begin 
Forwd(10); 
TurnLeft (aStep) 

end; 

repeat until KeyPressed; 

TextMode; 

Read(Num) 

end 
end. 


e Przytoczony program służy do wykreślania wielokątów foremnych. 
e Instrukcje Read służą do wprowadzenia liczby boków wielokątów. 
e Zakończenie wykonywania programu następuje po wprowadzeniu liczby 
boków mniejszej od 3. [m 


Dźwięk 
Środki umożliwiające uzyskanie dźwięku są w IBM PC bardzo skromne. 


Sprowadzają się one do wywołania dźwięku o ustalonej częstotliwości albo 
wyciszenia go. 


Procedura Sound 
Wywołanie: Sound(Num) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 


Wykonanie procedury Sound powoduje wywołanie jednostajnego dźwięku 
o częstotliwości Num herców. 


Procedura NoSound 
Wywołanie: NoSound 


Procedura NonSound jest bezparametrowa. 
Wykonanie procedury NoSound powoduje całkowite wyciszenie dźwięku 


wywołanego za pomocą procedury Sound. 
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Przykład 
program Note400; 
begin 
Sound(400); 
Delay(2000); 
NoSound 
end. 


e Wykonanie przytoczonego programu powoduje wydanie dźwięku o często- 
tliwości 400 herców, trwającego 2 sekundy. [m 
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Przytoczone tu programy przykładowe zostały uruchomione na mikrokompu- 
terze IBM PC. Ilustrują one posługiwanie się wybranymi podprogramami 
języka Turbo Pascal, demonstrując jego przydatność do przetwarzania tekstów 
i programowania grafiki. 


Program CopyDocuments 


Wykonanie programu CopyDocuments, przedstawionego na wydruku 21.1, 
w prawo od kolumny zawierającej komentarze, powoduje utworzenie czytelnej 
kopii dowolnego tekstu źródłowego, znajdującego się we wskazanym zbiorze. 
Kopię taką uzyskuje się przez wielokrotne nadrukowywanie poszczególnych 
wierszy tekstu. Ponadto, każdy wyprowadzany wiersz jest opatrywany 
numerem porządkowym zawartym w nawiasach klamrowych. W szczególności 
wydruk 21.1 został uzyskany za pomocą programu CopyDocuments. 


Wiersze programu od 26 do 44 służą do określenia nazwy zbioru zawierającego 
tekst źródłowy, określenia liczby nadrukowań wiersza i rozstrzgnięcia, czy 
wysuwanie papieru do nowej strony ma być ręczne czy automatyczne. W tym 
drugim przypadku, wysunięcie papieru będzie realizowane za pomocą wysłania 
do drukarki znaku sterującego *L. Odwołanie do takiego znaku występuje 
w procedurze CheckPage, w wieszu 23. 


W ramach instrukcji repeat, rozpoczynającej się w wierszu 46, wyprowadzane 
są kolejne kopie tekstu źródłowego. Po wyprowadzeniu każdej kolejnej kopii 
na ekranie pojawia się informacja o liczbie już wyprowadzonych kopii 
i zapytanie, czy wyprowadzanie ma być kontynuowane. Jeśli podczas 
wyprowadzania kopii zostanie z klawiatury wprowadzony dowolny znak, to 
spowoduje to przerwanie wyprowadzania tej kopii. 
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Te wiersze tekstu, które rozpoczynają się od znaku (kropka) są ignorowane 
i nie pojawiają się na wydruku. Zrobiono to z myślą o tekstach przygoto- 
wanych za pomocą edytora WordStar, zawierających jego dyrektywy krop- 
kowe. Pozostałe wiersze, o ile nie są puste, są opatrywane kolejnymi numerami 
umieszczonymi w nawiasach klamrowych. Opatrywanie wyprowadzanych 
wierszy takimi komentarzami jest realizowane w wierszach od 69 do 76 
Nadrukowywanie wierszy jest natomiast realizowane w wierszach 78 1 79. 
Polega ono tym, że każdy wielokrotnie nadrukowany wiersz jest kończony 
jedynie znakiem powrotu karetki "M. 


«1 proqąqram Jankh; 
<2> beo1in 
<Sł writeln(Hello, l am Janb”) 


t43ż end. 


Rys. 21.1 Wykorzystanie programu kopiującego 


Wydruk 21.1 Program CopyDocuments 


«12 program CopyDocuments; 
<2) var 
| RV; LineBuf : string[132J3 
(4) OneChar : char; 
(52 NewPage : boolean; 
(6) Count,i : integer; 
(72 Name : stringCJ0J5 
<B> Inp,Out : text; 
9) Len : integer; 
C102 Check : boolean; 
112 Tally : byte; 
«122 ManualPageEject : boolean; 
(132) LineNo : integer; 
(14) LineNoStr : stringli2J3 


15) procedure CheckPage; 
16) begin 


(17) if ManualPageEject then begin 

«183 GotoXY (1,25)5 

197) Write(”Check page alignment, press any key”); 
c20, Read (Kbd, OneChar) ; 

21) GotoXY (1,25); 

22) Write(””:35) 

(232 end else Write(Out,*L); 

24) end; 


(252 begin 


(262) CirScr; 

27) Writeln('”Filename :— 7”); 
«282 GotoXY (13,1); 

<29) Readln (name); 

CIO) GotoXY (1,2) 


CIJ13) Writeln(”Number of strikes :— ”")yg 
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Read (Kbd,OneChar); 

Count := ord(OneChar) — ord('0');5 

if (Count <£ 1) or (Count > 9) then Count := 2; 
gotoXxY(22,2)5 

Write (chr (Count + ord(”0')))5 

gotoXY(1,53)3 

Writeln('Manual Page Eject :— ”)35 


repeat 
Read (Kbd,OneChar) ; 
until (OneChar = "y') or (OneChar = "n”); 


gotoXY (22,35)5 
Write (OneChar);3 
ManualPageEject := OneChar = "”y* 
Tally :=5 O3 
repeat 
LineNo := O 
Assign(Inp,Name); 
Assign(Qut,”"LST:”)5 
Reset (Inp);3 
Rewrite (Out); 
while not Eof(Inp) and not KeyPressed do begin 
NewPage := false; 
LineBuf := ”';3 
while not Eoln(iInp> and not NewPage do begin 
Read (Inp,OneChar); 
if OneChar <> ©L then 
LineBuf := LineBuf + OneChar 
else 
NewPage := true 


end; 
if Eoln(iInp) then Readln(Inp); 
Len := Length (LineBuf); 


1f Len > 1 then 
while (Len > 1) and 
(Copy (LineBuf,Len,1) = ” ”) do 
Len := Len — 1; 
if Len > © then 
i* (Copy(LineBuf,1,1) <> ”.”) and 
(LineBuf <> ” ”) then begin 
LineNo := (LineNo + 1) mod 1000; 
Str (LineNo:O0,LineNoStr); 
LineNoStr := Copy (” >,l) 
4 -— Length (LineNoStr.) + 
>»? + LineNoStr + ”>;5 
LineBuf := LineNoStr + ” ” + LineBuf3j 
Len := Length (LineBuf); 
for i := 1 to Count do 
Write (0ut,Copy (LineBuf,1,Len) ,”M) 
end; 
Writeln (Out); 
if NewPage then CheckPage 
end; 
Close(lInp); 
CheckPage; 
Close (0ut); 
GotoXY (1,25); 
Tally := Tally + 1; 
if Tally = 1 then 
Write(* 1 copy printed.”) 
else 
Write(Tally : 2,” copies printed.”); 
GotoXY (20,25) 3 
Write(”Copy next? ”)5 
Read (OneChar); 
while (OneChar <> ”y”) and (OneChar <> "n') do 
Read (OneChar); 


203 
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(782) if OneChar = "y' then begin 
4992) GotoXY (1,25);5 

«1002 Write(”":31)5 

(1012 end; 

«102) until OneChar = "nz; 

€105) CirSer; 

(1042 Writeln ("Done") 


105) end. 


Program BullsEye 


Program ten, przedstawiony na wydruku 21.2, demonstruje wykorzystanie 
prostych podprogramów graficznych. Rezultatem jego wykonania jest rysunek 
21.2 zawierający szereg koncentrycznych okręgów. Niektóre z obszarów 
między okręgami są wypełnione. Okręgi są wykreślane za pomocą procedury 
DrawRings. Dwie grupy okręgów są wykreślone w oknie domniemanym, 
a jedna w konie ustanowionym za pomocą procedury GraphWindow. W obu 
tych przypadkach występuje obcinanie wykresu na obrzeżach okna. Ponieważ 
kolor użyty do wypełniania obszarów jest taki sam jak kolor okręgów 
i obrzeży okien, wypełnianie niektórych obszarów koncentrycznych kończy się 
na obrzeżu okna albo na łuku okręgu. 


Wydruk 21.2 Program BullsEye 


program BullsEye; 
<$i Graph.p > 


procedure DrawBorder (xLeft,yLeft,xRight,yRight : integer); 

begin 
Draw(xLeft,yLeft,xRight,yLeft,5); 
Draw(xRight,yLeft,xRight,yRight,5)5 
Drawl(xRight,yRight,xLeft,yRight,5); 
Drawl(xLeft,yRight,xLeft,yLeft,35)5 

end; 


procedure DrawKings(xCoord,yCoord : integer); 
var 

i : byte; 
begin 

for i 3:5 1 to 16 do 

Cirecle(xCoord,yCoord,i £ 5,5);5 
for i :=5 1 to 8», do 
FillShape(xCoord + i £% 1O — K;yCoord,3,5); 

end; 


begin 


GraphMode; 
Palette (1); 


DrawBorder (0,0,519,1979)5 
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DrawRings(100,40); 
DrawRings(100,160); 
DrawBorder (200,40,300, 120); 
GraphWindow (200,40, 300,120); 
DrawRings (50, 40); 


GotoXY (65, 20); 
Write('Simple graphics”); 


repeat until KeyPressed; 
Te+tMode 


end. 


Rys. 21.2 Wykorzystanie prostych podprogramów graficznych 


Program PrintColors— I 


Program ten, przedstawiony na wydruku 21.3, demonstruje wyprowadzanie 
obszarów w różnych kolorach. Jego rezultatem jest rys. 21.3, na którym 
poszczególne barwy zostały przedstawione w różnych odcieniach szarości. 
Ponieważ paletą domniemaną jest paleta nr 0, a tło wybrano jako niebieskie, 
na monitorze kolorowym pojawią się cztery prostokąty w kolorach niebieskim, 
zielonym, czerwonym i brązowym. Napisy wyprowadzane za pomocą proce- 
dury White będą wyświetlone w kolorze brązowym na niebieskim tle. 
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Wydruk 21.3 Program PrintColors-1 


program PrintColors; 
Si Graph.p 2 


var 
x,y,Color : byte; 


procedure DrawBorder (xMin,yMIn,xMax,yMax : integer; 
Color : byte); 

begin 
Draw(xMin,yMin,xMax,yMin,Color); 
Draw(xMax,yMin,xMax,yMax,Color); 
Draw(xMax ,yMax,xMin,yMax ,Color);3 
Draw(xMin,yMax,xMin,yMin,Color) 

end; 


procedure FillWindow(xMin,yMin,xMax,yMax : integer; 
Color : byte); 
begin 
GraphWindow (xMin,yMin,xMax,yMax)3j 
FillScreen (Color) 
end 


begin 


GraphColorMode; 
GraphBackground (1); 


DrawBorder (0,0,519,19797,3)5 


DrawBorder (10,10,155,975,35); 
DrawBorder (160,10,309,95,3); 
DrawBorder (10,104,155,189,3)5 
DrawBorder (160, 104,309,189,5); 


FillWindow(11,11,154,94, O); 
FillWindow(161,11,308,94, 1); 
FillWindow(11, 105, 154,188, 2); 


FillWindow(161, 105, 308,188, 3); 


Color := —l; 
for y is O to 1 do 
for x := O© to 1 do begin 
Color := Color + 1; 
gotoXY(8 + 19 % x,7 + 12 $ y); 
Write('Color"”,Color :2) 
end; 


repeat until KeyPressed; 
TextMode 


end. 
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Color 6 


Rys. 21.3 Wyprowadzanie obszarów w kolorach 


Program PrintColors — 2 


Program ten, przedstawiony na wydruku 21.4, stanowi odmianę programu 
z wydruku 21.3. Demostruje on wyprowadzanie odcinków liniii prostych 
w różnych kolorach. Jego rezultatem jest rys. 21.4, na którym odcinki 
w różnych kolorach zostały przedstawione w różnych odcieniach szarości. 


Wydruk 21.4 Program PrintColors-2 


program PrintColors; 
($i Graph.p >» 


var 
x,y,Color : bytej 


procedure DrawBorder (xMin,yMiIn,xMax,yMax : integer; 
Color : byte); 
begin 
Draw (xMin,yMin,xMax ,yMin,Color);j 
Draw (xMax ,yMin,xMax ,yMax ,Color);j 
Draw (xMax ,yMax ,xMin,yMax ,Color);j 
Draw (xMin,yMax,xMin,yMin,Color) 
end; 


procedure FillWindow(xMin,yMin,xMax,yMax : integer; 
Color : byte); 
begin 
GraphWi ndow (xMin,yMin, xP"Max ,yMax);j 
DrawBorder (20,20,xMax — xMin — 20, 
yMax — yMin — 20,Color); 
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Draw(20,20,xMax — xMin — 20,yMax — yMin — 20,Color)$g 
Draw(20,yMax — yMin -—20,xMax — xMin — 20,20,Color) 
end; 


begin 


GraphColorModeg 
GraphBackground (0); 


DrawBorder (0,0,53197,199,3); 


DrawBorder (10,10,155,95,3)5 
DrawBorder (160,10,309,95,3); 
DrawBorder (10,104, 155,189,3)5 
DrawBorder (160, 104,3097,1897?,3); 


FillWindow(11,11,154,94, O); 
FillWindow(161,11,308,94, 1) 
FillWindow(11, 105, 154, 188, 2) 5 


FillWindow(161, 105, 308, 188, 3); 


Color := -i; 
for y :5 O to 1 do 
for x := O to 1 do begin 
Color := Color + 1; 
gotoXY(8 + 19 X x,7 + 12 $ y); 
Write('Color"” ,Color :2) 
end; 


repeat until KeyPressed; 
TextMode 


end. 


Color GQ | Color 1 | 
SBE sg 


Rys. 21.4 Wyprowadzanie odcinków linii prostych 
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Program ArcAndCircle; 


Program ten, przedstawiony na wydruku 21.5a, demonstruje użycie procedur 
Arc i Circle. Ponadto wyjaśnia on zasadę przenoszenia rysunków z ekranu 
monitora na drukarkę wierszową. Rezultatem wykonania programu jest rys. 
21.5a, który w wersji zrealizowanej za pomocą procedury PrintScreen ma 
postać jak na rys. 21.5b. Procedura PrintScreen jest zawarta w zbiorze 
HardCopy.ibm i jest przytoczona na wydruku 21.5b. Najistotniejszym elemen- 
tem proceduryy PrintScreen jest funkcja PixelOn odwołująca się do obszaru 
pamięci ekranu. Rezultatem tej funkcji jest dana typu boolean określająca 
prowadziwość zdania „w trybie graficznym wysokiej rozdzielczości punkt 
ekranu o współrzędnych pikselowych (x,y) świeci w kolorze różnym od koloru 
tła”. 


Wydruk 21.5a Program ArcAndCircle 


program ArcAndCircle; 


€%i Graph.p 2 
($i HardCopy.ibm >» 


begin 
HiRes; 
Draw(0,0,639,0,1)5 
Draw(637,0,6397,199,1)3 
Draw(6397,197,0,19797,1)3 
Draw(0,197,0,0,1); 
Arc(100,100,270,90,1); 
gotoXY (57,135)5 
Write(”Arc and Circle”); 
Circle(280,100,970,1)3 
PrintScreen(*C'L");5 
repeat until KeyPressed; 


TextMode 


end. 


14 — Turbo Pascal... 
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Wydruk 21.5b Procedura PrintScreen 


type 
MsdeString = stringC(2553J5 


procedure PrintScreen (Mode : ModeString); 
ccnst ScreenBase = $BBOO; 


var 
x,yL : integer; 
Break : boolean; 


procedure OneLine; 


function PixelOn(x,y : integer) : boolean; 
begin 
PixelOn := (Mem(ScreenBase : 
(y and 1) sahl 13 + 
(y and -—2) shl 5 + 
(y and -—2) shl IJ + x shr 3J and 


(128 shr (x and 7)) <> O) 
end; 


function OneChar (x,yL : integer) : byte;j 
const Bits : array [O..7] of byte = 
(128,64,52,16,8,4,2,1)5 
var OneByte,i t bytej | 
begin 
if KeyPressed then break ti= true; 
yL := yL shl 3; 
OneByte := Oj 
for i zz O to 7 do 
if PixelOn(x,yL + i) then 
OneByte := OneByte or BitsCiJyj 
OneChar := OneByte 
endgż 


begin ( OnelLine >» 
if not break then begin 
Write(lst,M"Mode); 
write(lst,chr (Lo(640)) „chr (Hi (640)))5 
for x ti= O to 639 do 
Write(lst,chr (OneChar (x,yL)»))5 
Writeln(lst) 
end 
endj 


begin ( HardCopy 9 
break tt false; 
Write(lst,*["8”*C'3'424)5 
for yL := O to 24 do OneLinej 
writeln(list,*C"Q'); 

end; 
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Arc and Circle 


Arc and Circle 


Rys. 21.5b Wyprowadzanie obrazu ekranu 


Program GraphBackground 


Program ten, przedstawiony na wydruku 21.6a, demonstruje posługiwanie się 
oknami tekstowymi. Rezultatem wykonania programu jest rys. 21.6 zawie- 
rający szereg zachodzących na siebie okien tekstowych, w których umieszczono 
fragment tekstu „To be or not to be”. 

Ze względu na to, że dostępne programy systemowe do przenoszenia obrazu 
z ekranu na papier nie umożliwiają traktowania obrazu uzyskanego w trybie 
znakowym tak, jakby był uzyskany w trybie graficznym, przytoczony rysunek 
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otrzymano inną drogą, a mianowicie za pomocą 
Monolog przedstawionego na wydruku 21.6b. 


Wydruk 21.6a Program GrapliBackground 
program GraphBackground; 
($i Graph.p 2 


var 
Color,i : byte; 


begin 
TextMode (C40) ; 


GraphBackground (53) 
tor Color zs O to 7 do begin 
TextBackground (Color); 
i = 3 X Color + 33 
Window(i,i,i + 4,i + 3) 
gotoXY(1,1)3 
Write(* To be or not to be "”) 
end; 


Window(1,1,40,25)5 

gotoXY (15,5) 

TextBackground (0) 3 

Write(* To be or not to be ”"); 
repeat until KeyPressed;j 

Tex tMode (C80) 


end. 


To be or not to be 


Rys. 21.6 Posługiwanie się oknami tekstowymi 


wykonania 


programu 
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Wydruk 21.6b Program Monolog 
program Monolog; 
€8i Graph.p > 


var 
Color,Pos : byteg 


procedure DrawBorder (xMin,yMiIn,xMax,yMax : integer; 
Color : byte); 
begin 
Draw (xMin,yMin,xMax,yMin,Color); 
Draw(xMax,yMin, xMax,yMax,Color); 
Draw (xMax ,yMax ,xMin,yMax,Color);g 
Draw (xMin,yMax,xMin,yMin,Color) 
endyj 


procedure DrawTextWindow (xCor,yCor : integer;Color : byte); 
var 
xxCor,yyCor,i : integer; 


procedure DrawBackground;j 
var 

x,y : integer; 
begin 

for « a= O to 39 do 

for y :s O to 23 do 
1f GetDotColor (x,y) <> 3 then 
Plot (x,y,1) 

end; 


begin (£ DrawTextWindow 2 
if xCor > 35 then xCor 1i= 35; 
14 yCor > 20 then yCor is 203 
xxCor := 8 $ (xCor — 1); 
yyCor :=s B t (yCor — 1)5 
GraphWindow (xxCor,yyCor,xxCor + 39,yyCor + 51); 
ClearScreeng 
if Color <> O then FilliScreen(1); 
1f Color <> 6 then 
for i 3: O to 2 do begin 
gotoXY (xCor,yCor + £t)5 
Write(Copy('To be or not to be',5S t i + 4,5)) 
end; 
if Color <> O then DrawBackground 
end; 


begin 


GraphColorMode; 

DrawBorder (0,0,519,1979,3);3 

for Color := O to 7 do begin 
Pos := 3 M Color + 3; 
DrawTe:tWindow (Pos,Pos,Color) 

end; 


gotoXY(15,5)5 
GraphBackground (O) 3 

Write(* To be or not to be "3);5 
repeat until KeyPressed;j 


TextMode 


end. 
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Program TurtleWindow 


Program ten, przedstawiony na wydruku 21.7, demonstruje posługiwanie się 
grafiką żółwiową. Rezultatem jego wykonania jest rys. 21.7 zawie.ający m.in. 
okno żółwiowe i umieszczone w nim wykresy gwiazdek o przypadkowych 
rozmiarach. Gwiazdki — w liczbie 20 — są kreślone za pomocą procedury 


DrawStar. 
Wydruk 21.7 Program Ttrtle Window 
program Turtlewindow; 


€$i Graph.p 2) 


var 
Count,x,y : integer; 
Side : integer; 


procedure DrawBorder (xMin,yMlIn, xMax ,yMax 


begin 
Draw(xMin,yMin,xMax,yMin,35)3 
Draw(xMax ,yMin,xMax,yMax,35); 
Draw(xMax ,yMax,xMin,yMax,3); 
Draw(xMin,yMax,xMin,yMin,J3) 
end; 


procedure DrawStar (Side : integer); 
var 
1 : bytej 
begin 
TurnRight (15); 
for i := 1 to 5 do begin 
Forwd (Side); 
TurnRight (78) ; 
Forwd (Side); 
TurnLe?+t (150) 
end 
end; 


begin 


GraphColorMode; 
ClearScreen; 
FillScreen(1); 
DrawBorder (0,0,319,1979);3 


DrawBorder (20,60, 181,181);5 
Turtlewindow(100,120,160,120); 
ClearScreen; 

ShowTurtle; 


for Count 3a 1 to 20 do begin 
x 22m random(140) — 705 
y rm random(120) — 605 
Side := random(8) + JI; 
SetPosition(x,y); 
DrawStar (Side) 

and; 

gotoXY (22,4)5 

Write("Turtle window); 


repeat until KayPressed;j 
TextMode. 


end. 


: integer); 


21. Przykłady programów 215 


-, Turtle window 


Rys. 21.7 Posługiwanie się grafiką żółwiowa 


Program TurtleGraphics 


Program ten, przedstawiony na wydruku 21.8, także demonstruje posługiwanie 
się grafiką żółwiową. Rezultatem jego wykonania jest rys. 21.8 zawierający 
stokrotkę utworzoną z okręgów i łuków okręgowych. Ponieważ wykreślanie 
łodygi odbywa się po wywołaniu procedury Wrap, ta część łodygi, która 
wykracza poza dolną krawędź okna pojawia się u góry ekranu. 


Wydruk 21.8 Program TirtleGraphics 


program TurtleGraphics;3 
4$i Graph.p > 


procedure aCirecle(Rad : integer); 
var 
1 s: integer; 
Side : integer; 
begin 
PenUp; 
Forwd (Rad) 3 
TurnRight (70) 5 
PenDown;j 
Side := trunc(Pi £ Rad / 185 
for i = 1 to 36 do begin 
Forwd (Side); 
TurnRight (10) 
end; 
PenuUpj 
TurnLeft (90); 
Back (Rad); 
PenDown 
end; 
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procedure anArc (Side,Angle : integer); 
var 
i : integer; 
begin 
TurnRight (5) 5 
for i := 1 to trunc(Angle / 10) do begin 
Forwd (Sida); 
TurnRight (10) 
end 
TurnRight (-5) 
end; 


procedure aPetal (Size,Angle : integer); 
begin 

anArc (Size,Angle)g 

TurnRight (180 — Angle); 

anArc (Size,Angle); 

TurnRight (180 — Angle) 
end; 


procedure aDaisy(Size,Angle,Count : integer); 
var 
i : integer; 
begin 
for i := 1 to Count do begin 
aPetal (Size,Angle); 
TurnRight (trunc (360 / Count)) 
end; 
Home; 
aCircle(trunc (Size)) 
end; 


begin 
GraphColorMode; 
Drawló,0,319,0,5)3 
Draw(519,0,319,19797,3)5 
Draw(519,199,0,19797,3)3 
Draw(0,19797,0,0,3)3 
aDaisy(10,80,97); 
aDaisy(15,40, 18)5 
Wrap; 
TurnLeft (275)5 
anArc (20,970); 


gotoXY (4,21)5 
Write(*Daisy'”)5g 


repeat until KeyPressed; 
TextMode 


end. 
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Rys. 21.8 Wykorzystanie podprogramów grafiki żółwiowej 


Program Filling 


Program ten, przedstawiony na wydruku 21.9, demonstruje zasadę wypełniania 
obszarów. Rezultatem jego wykonania jest rys. 21.9 zawierający parę 
kwadratów: przed i po dokonaniu wypełniania za pomocą procedury 
FillShape. 


Wywołanie procedury FillShape zawiera określenie współrzędnych punktu 
położonego w sąsiedztwie lewego-górnego narożnika prawego kwadratu. 
Otoczenie tego punktu ma zostać wypełnione kolorem 3 bieżącej palety. 
Wydawałoby się, że wypełnianie będzie dotyczyć jedynie paska wzdłuż obrzeża 
kwadratu. Tak jednak nie jest, ponieważ kolor wypełniający obszar przenika 
do wnętrza kwadratu poprzez dziurki rozmieszczone przypadkowo w kwa- 
dracikach siatki prostokątnej. 


Wydruk 21.9 Program Filling 
program Filling; 
(8$i Graph.p >) 


const 
Size » 45 
nm gg 
Hor = 319; 
Ver = 199; 


var 
InSide,O0OutSide : integer; 
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x,Yi,d,dd : integer; 
Seed,Margin,Count : integer; 


function Rand(n : integer) : integer 3 
begin 

Seed :5 abs(Seed % 105) 

Rand := (Lo(Seed) xor Hi (Seed)) mod n 
and; 


procedure ClearDot (x,y : integer); 
begin 
if GetDotColor(x,y) <> O then begin 
Plot(x,y,0O)5 
Count := Count — 1 
end 
end; 


procedure Grid(xCor,yCor : integer); 
begin 
Draw(xCor,yCor,xCor + OutSide,yCor,3)5 


Draw(xCor + OutSide,yCor,xCor + OutSide,yCor 
DrawlxCor + OutSide,yCor + OutSide,xCor,yCor 
DrawlxCor,yCor + QOutSide,xCor,yCor,3)5 
xCor t= xCor + dj 
yCor := yCor + dy 
for £ = O to n do begin 
Draw(xCor,yCor + i % dd,xCor + InSide,yCor 
Draw(xCor + i £ dd,yCor,xCor + i £ dd,yCor 


end; 
Seed i= SAA;5 
Count s: 5% nt$ (n+ 1) shr 2; 
repeat 
x = Rand(n)g 
y zm Rand(n)g 
x = xCor + (2 £ x + 1) % di 
y zm yCor + (2 ty + 1) £ d; 
case Rand(4) of 


O t CN > ClearDot(x,y — d); 
1: CE > ClearDot(x + dzy) 
2: (S > ClearDot(x,y + d); 
1 CW > CiearDot (x — d,y) 
end 
until Count = O 
endj 
begin 
GraphColorMode; 


Draw(O0,0,Hor,0,5)5 
Draw (Hor,O,Hor,VvVer,3); 
Draw(Hor,ver,O,vVer,5)5 
Draw(O,Ver,0,0,3)5 


d := Size + 1; 

dd := 2 t dy 

InSide i= n £ dd; 

OutSide := Inside + 2 $ Size + 2; 


Margin := trunc((Hor + 1 -— 2 £ OutSide) / 3)5 


Grid (Margin,30)3 
Grid(2 % Margin + OutSide,J30)5 


FillShape(2 £ Margin + OutSide + 1,31,3,53)5 


+ + 


+ t 


OutSide,3); 
OutSide,3)5 


i t£ dd,S5); 
InSide,35) 


21. Przykłady programów 


gotoXY(6,21)3 
Write(”Shape filling')g 


repeat until KeyPresced; 
TextMode 


end, 


Shape filling 


Rys. 21.9 Wypełnianic obszarów 


Program Logo 
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Program ten, przedstawiony na wydruku 21.10, demonstruje umieszczenie na 
ekranie dowolnego wzoru stanowiącego układ punktów. Rezultatem wyko- 
nania programu jest rys. 21.10, zawierający napis jb w otoczce z dwóch 
prostokątów. Wzór składający się na taki układ punktów jest prostokątem 
16x24 pikseli i jest zakodowany w tablicy prostokątnej o nazwie Logo. 


Wydruk 21.10 Program Logo 


program Logo 
procedure Logo(xLogo,yLogo : integer); 


const 
Logo : array[O..15,0..2] of byte "= 
((SFF,$FF,S$FF), ($80,$00,$01), 
(©BF,SFF,$FD), (SAO, $00,$05), 
($AO0,$BE,$805), (SA0,$06,805), 
(8A1,$C7,$C5), ($A0,$C6,$65), 
(SAO, $C6ó,$65), (SAC,$Có,$65), 
(SAC,$CB,$C5), ($A7,$80,$05), 
(SAO, $00,$05), ($BF,$FF,$FD), 
($80,$600,$01), ($FF,$FF, $FF)); 
var 
OneByte,x,y,i : bytej 
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begin 
tor y := O to 15 do 
for x 3= O to 2 do begin 
OneByte t= Logoly,x3J3 
tor i sz © to 7 do 
if (OneByte and (128 shr i)) <> O than 
Plot (xLogo + x t 8 + i;yLogo + y,1) 
end 
end; 


procedure jbLogoj 
begin 

Logo (610, 180) 
end; 


procedure DrawBorder; 
begin 
Draw(0,0,639,0, 1)5 
Draw(639,0,637,19797,1)5 
Draw(6397,199,0,199,1)5 
Draw(0,199,0,0,1); 
endz 
begin 
HiRes; 
DrawBorder; 
jblLogo; 
repeat until KeyPressed; 


TextMode 


end. 


Rys. 21.10 Wyprowadzanie zadancgo układu punktów 
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Program jb 


Program ten, przedstawiony na wydruku 21.1la, demonstruje wypełnienie 
wybranego obszaru wzorem określonym za pomocą procedury Pattern. 
Ponadto ilustruje on dokonanie włączenia zbioru zawierającego dowolne 
procedury źródłowe. Rezultatem wykonania programu, korzystającego ze 
zbioru włączonego, przedstawionego na wydruku 21.11b, jest rys. 21.11. Na 
rysunku tym widać tło utworzone za pomocą procedury FillPattern i nałożony 
na nie wzór składający się z pary liter jb innego kroju. 


Wydruk 21.lla Program jb 


program jb; 


($i Graph.p >? 
($i Logo.Sys ? 


const 
Jb : array[(O..7] of byte = 
($02,$*535,$54,$554,$5534,510,$%14,S00); 
Color = 3; 


begin 
GraphColorMode; 


Pattern (jb); 
FiliPattern(0,0,319,199,Color); 


jbLogo; 
repeat until KeyPressed; 
TextMode 


end. 


Wydruk 21.11b Procedury włączane przez program jb 


< Logo.sSys 9) 
procedure Logo(xLogo,yLogo : integer); 


const 
Logo : array(O..15,0..2) of byte = 


(($SFF,$FF,$FF)>, ($60,$00,301), 
($BF,$FF,$FD), ($A0,300,305), 
(S$AO0,%8E,$05), ($A0,%06,%305), 
($A1,$C7,$C5), (SA0,$Có,%65), 
($A0,$C6ó, 865), (S$SAC,$C6,365), 
($AC,$CF,$C5), ($A7,$80,$05), 
(S$A0,$%00,$05), ($BF,$FF,$FD), 
($80,%00,%301), (S%FF,SFF,SFF)); 

var 
OneByte,x,y,i : byte; 


begin 
for y ts O to 15 do 
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for x := O to 2 do begin 
OneByte := Logoly,x]; 
for i := O to 7 do 
Plot(xLogo + x £ B + i,yLogo + y, 
ord((OneByte and (128 shr i1)) <> O) shl 1) 
end 
end; 


procedure jbLogo; 
begin 

Logo (290, 180) 
end; 


JbJbJb jb jb bb jb jb jb jb jb jb Jb jb jb b jb jb jb jb jb jb jb jb Jb jb b Jb jb jb jb jb jb jb jb jb jb jb jb 
JbJbJbJb jb jb 5b jb jb b 5b jb jb jb Jb jb jb Jb Jb b jb jb jb jb jb jb Jb jb. jb jb jb jb Jb jb jb jb jb jb jb jb 
JbJb jb Jb jb jb jb jb jb b jb jb jb Jb Jb jb jb jb jb 5b jb jb jb jb jb jb.ib jb jb jb jb jb JŁ jb jb jb Jb jb Jb Jb 
JbJbJbJbjb jb jb jb jb jb Jb jb jb jb jb jb jb jb jb jb jb jb Jb jb jb jb jb jb Jb jb jb jb jb Jb jb jb jb jb jb jb 
JbJbjb Sb jb jb Jb jb jb Jb jb jb jb Jb jb 5b jb jb jb Jb jb jb jb jb jb jb jb jb jb ib jb jb Jb jb jb jb jb jb jb jb 
Jb jb Jb jb jb jb b jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb 
JbJbJb bb jb jb jb jb Jb jb 5b jb jb jb jb Jb jb jb jb jb b jb jb jb jb jb jb jb jb Jb jb jb jb jb jb jb jb jb jb 
Jb jb jb Jb jb jb. jb jb jb jb jb Jb jb jb jb jb b jb jb jb JE jb jb jb Jb Jb jb Jb jb jb jb jb. ib jb jb jb jb jb jb jb 
JbJbjb jb jb jb jb Jb Sb jb Jb b jb jb jb jb jb jb 5b Jb jb Jb b jb jb jb Jb jb jb jb jb jb jb jb jb jb b jb jb jb 
Jb jb jb jb jb jb jb jb jb. jb jb jb jb jb jb jb b jb jb jb jb jb jb jb jb Jb jb jb sb Jb jb jb Jb Jb jb jb jb jb jb jb 
Sb Jb b Jb Sb jb Jb b Jb bb Jb jb 5b jb jb jb Sb b jb Jb jb jb Jb jb jb jb jb JB jb b jb jb jb Jb jb Jb ib Jb Jb 
JbJb b Jb b jb Jb jb Jb b jb jb jb 5b jb jb jb jb jb jb Jb JB jb Jb jb jb Sb jb b jb JD Jb jb b Sb Sb Jb jb Jb Jb 
JbJbJb jb Jb Sb jb sb Jb b Sb jb jb Jb Sb Jb.jb jb jb jb jb b b b jb JB jb jb b jb jb jb Sb jb jb jb b Jb Jb Jb 
Jb jb Sb jb Jb b b jb jb b Sb jb jb jb jb jb b jb jb jb jb Jb JB jb jb Jb jb jb b jb Jb jb Jb Sb jb jb jb Sb b Sb 
JbJbJb jb Jb jb Sb b jb Sb b jb Jb jb jb jb jb Sb b jb jb Jb jb jb JB jb b jb Jb jb jb jb jb 5b Jb jb jb jb Sb JŁ 
JbJb Jb b Sb Jb jb Jb Jb jb b jb jb Jb Jb b b b jb jb jb b jb jb jb Sb jb Sb jb jb b jb jb b Jb jb jb jb jb 5b 
Jb b Jb jb Jb jb Jb 5b b Sb b Sb jb jb jb jb jb jb Jb Jb Jb Sb jb b jb jb Jb Jb b Jb b jb jb Jb jb Sb jb jb jb jb 
Jb jb jb bb sb jb Jb jb bb b jb jb jb jb jb jb jb jb jb jb.5b b jb jb jb Jb b Jb Sb JŁ Jb jb 5b Sb jb jb jb jb 
Jb.jb jb jb Jb Jb Sb b Sb b Sb Sb Jb jb jb jb Jb Jb jb jb jb jb jb Jb Jb b Jb jb b jb Jb jb jb Jb jb Jb Jb jb Sb JB 
Jbb jb Jb Jb Sb b b Sb b b b b jb Sb jb jb jb jb jb jb jb Jb Jb Sb 30 JB Jb jb b 5B jb Jb jb Jb jb 5b ib jb jb 
Jb jb jb b jb Sb Sb 5b Sb 5b b 5b b Sb Jb.jb.jb jb jb jb jb jb jb Jb Sb Sb jb Jb jb jb jb jb Sb jb Sb Jb 5b Jb jb jb 
Jb jb Jb Sb Sb jb jb Jb Jb Jb b jb b jb Sb Sb jb jb jb jb jb Sb Jb JB b b jb Sb jb jb jb jb jb jb Jb Jb Jb jb Jb Jb 
Jb jb jb jb Sb jb jb 5b Sb Gb Sb Sb jb Jb jb 5b Sb 6 Sb b Sb jb b b Jb Jb Sb b Jb jb Jb Jb Jb jb Jb bi —— || 
Jb.b Sb 5b Sb Sb Sb jb jb b Sb jb jb jb Sb jb jb b Sb jb Jb jb Jb 5b 5b jb Jb Sb 5b JB b Jb jb Jb b jb jb b 
Jb bb jb jb jb jb jb jb jb jb jb jb jb jb jb jb jb. jb b jb jb jb jb b jb jb jb jb jb jb 5b jb jb jb jb ojojojb 


Rys. 21.11 Wypełnianie obszaru zadanym wzorem 


Program PatternDesigner 


Program ten, przedstawiony na wydruku 21.12, demonstruje wypełnianie 
obszarów wzorami o rozmiarach 8x8 pikseli i służy do interakcyjnego 
przygotowywania takich wzorów. 


Bezpośrednio po rozpoczęciu wykonywania programu na ekranie pojawia się 
szachownica o rozmiarach 8x8, po której można się dowolnie poruszać, 
posługując się 8 klawiszami kierunkowymi, w tym 4 klawiszami oznaczonymi 
strzałkami — w górę, w dół, w lewo i w prawo. Naciśnięcie klawisza Ins 
powoduje zabarwienie kwadracika szachownicy, a naciśnięcie klawisza Del 
— jego odbarwienie. 


Jednocześnie z wypełnianiem szachownicy zabarwionymi kwadracikami, z jej 
prawej strony pojawiają się szesnastkowe kody poszczególnych jej elementów, 
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a pod tymi kodami — wzór reprezentowany na szachownicy, zmniejszony do 
jednego znaku. 


Poza opisanymi klawiszami, można posługiwać się klawiszami sterującymi 


F1—F4, którym przypisano następujące znaczenie 


Fl — Zakończenie wykonywania programu. 

F2 — Wypełnienie wzorem dużego prostokąta zajmującego lewą 
część ekranu. 

F3 — Przywrócenie początkowych warunków wykonywania progra- 
mu. 

F4 — Przedstawienie wzoru we wnętrzu okręgu. 


Naciśnięcie dowolnego z pozostałych klawiszy nie ma żadnych skutków. 


Przykładowe rezultaty interakcyjnej sesji współpracy z programem przedsta- 
wiono na rys. 21.12a i 21.12b. 


Wydruk 21.12 Program PatternDesigner 


(12 program PatternDesigner; 


<2> (8i Graph.p 2 
3) ($i1 Logo.Sys 2 


4, type 

52 PatternType = array[0..7] of byte; 
(6) const 

7» xMin = 8; yMin = 14 5; 

d=> xMax = 161; yMax = 159; 

c?» xPad = 25; yPad = 3; 
«102 HexDigits : stringC(16] = ”0123456789ABCDEF" 3 
€11) Hor = 3193 
«122 Ver = 1933 

«152 EmptyPattern : PatternType = 
(142 (0,0,0,0,0,0,0,0);3 
«152 var 

(162 PatternArray,VvVector : PatternType; 
(172 Row : byte; 

«182 x,y,xPix,yPix,i,j : integer; 

«192 Ch : char; 

202 Finish : boolean; 

'212 procedure DrawBorder (xMin,yMin, 

<223) xMax,yMax : integsr; 
252 Color : byte )5 
24 begin 

(252 Draw(xMin,yMin,xMax,yMin,Color)3 
<26) Draw (xMax „yMin,xMax ,„yMax,Color); 
€272 Draw (xMax,yMax ,xMin,yMax,Color); 
€282) Draw(xMin,yMax,xMin,yMin,Color) 


<293) end; 


€302 procedure DrawGrid; 
(513) begin 
32) xPix 3:5 (xPad — 1) tt 8; 
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yPix := (yPad — 1) t 85 
for i := O to 8 do begin 
Draw(xPix,yPix + 8 t i; 
xPix + 64,yPix + 8 $ i,2)5 
Draw(xPix + 8 £ i;,yPix;, 
xPix + B £$ i,yPix + 64,2)5 
14 1 < B then begin 
gotoXY (xPad + 9?,yPad + i)5 
Write(”00) 
end 
end 
end; 


procedure InvertPixel; 

var 
Pixel : integer; 

begin 
xPix 3:5 (xPad — 1) £8 + x £ B + 4 
yPix :5 (yPad — 1) £ 8 ty $%B + 4 
Pixel := GetDotColor (xPix,yPix); 
Plot(xPix,yPix,3 — Pixel) 

end; 


procedure ChangePad (Insert : boolean); 
var 
Mask : byte; 
begin 
Mask := 128 shr x; 
Row := PatternArraylyj; 
Row := Row and not Mask; 
if Insert then 
Row := Row or Mask; 
PatternArrayly] := Row; 
xPix zz (xPad — 1) £ 8 + x t 8 
yPix 35 (yPad — 1) XB +y £ 8 
KillShape (xPix,yPix,0,2); 
if Insert then 
FiliShape(xPix,yPix,3,2)5 
gotoXY (xPad + 9,yPad + y)$ 
Write(HexDigitslRow shr 4 + 1), 
HexDigitslRow and $F + 1])3 


+ 
+ 


2 
2 


end;g 


procedure DisplayVector; 
begin 
gotoXY (2,23); 
Write(” (7”)5 
for j := O© to 7 do begin 
Row := Vector[jJ; 
Write(HexDigitslRow shr 4 + 1], 
HexDigitstRow and $F + 13);5 
if j < 7 then Write(”,”) 
end; 
Write(”)”) 
end; 


procedure DrawPattern; 
const 
xPix = 2663 
yPix » 148; 
var 
x,y : integer; 
begin 


DrawBorder (xPix,yPix,xPix + 11,yPix + 11,2)5 


for y :s5 O to 7 do 
for x := O to 7 do 


(957 
(762) 
(977 
(978) 


9972 
(1002 
1012 
102) 
(1052 
(104 
€105) 
C€106) 
(1072 
108) 
109) 
1102 
(1112 
(1122 
£11532 
(1142) 
(1152 
(116) 


(1172 
€118> 
€119> 
(1202 
(1212 
«1222 
(125) 


(124> 
(125) 
(1262 
(1272 
(128 
(129? 
€1502 
(1513) 
1532) 
(155) 
(134 
€1535 
(15362 
(157) 


«158» 
(1539) 
(1480) 


«141 
«1422 
(145) 
(144) 
(145) 
(146) 
(147? 
(148) 
(149) 
150? 
(1512 
«1523 
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Plot(xPix + 2 + x„,yPix + 2 +ty; 
3 X (ord(PatternArraylyJj and 
(128 shr x) <> 0))) 
end; 


procedure FillSquare; 
begin 
GraphWindow(xMin + 1,yMin + 1, 
xMax — 1,yMax — 1);3 
ClearScreen; 
GraphWindow(O0,0,Hor,Ver); 
for i :=5 O to 7 do begin 
Row := PatternArrayL[7 — ij; 
for j := O to 7 do begin 


Vector[ri] := vVector[iJ] shl 1 + Row and 
Row := Row shr 1 
end 
end; 
DisplayVector; 


Pattern (Vector); 
FillPattern(xMin + 1,yMin + 1, 
xMax — 1,yMax — 1,3) 
end; 


procedure Trim; 
begin 
Circle((xMin + xMax) shr 1, 
(yMin + yMax) shr 1, 
(xMax — xMin) shr 1 — 10,2);3 
FillShape(xMin + 1,yMin + 1,1,2) 
end; 


procedure Initialize; 
begin 
ClearScreen; 
jbLogo; 
DrawBorder (0,0,Hor,Ver,3); 
DrawBorder (xMin,yMin, xMax ,yMax,2)5 
DrawGrid; 
gotoXY (23,4)3 
Write(”Pattern Designer”); 
u s= Oz 
Yy 3= 05 
PatternArray := EmptyPattern; 
InvertPixel 
end; 


begin 
GraphColorMode; 
Initialize; 


Finish := false; 
repeat 
DrawPattern; 
Read (Kbd,Ch);5 
if (Ch s *C) and KeyPressed then begin 
Read (Kbd,Ch) 3 
InvertPixel; 
case ord(Ch) of 


75 : C€W> x zm x — 13 
77 3: CE x zu x + l; 
72 : (NP y szy — l; 
8O : (CS? y szy +* 13 


15 — Turbo Pascal... 


1; 


225 


226 21. Przykłady programów 


(1532) 71 : C NW > begin 

(1542 y szy — 1; 
(1552 x s=x - 1 
(1562 end; 

(1572 73 : (NE )> begin 

(1582 y szy -— 1; 
«15972 x 5x +1 
(1602 end; 

(1612) 79 : ( SW 2 begin 

(162) y :=y + 1; 
(163) x = x -l1 

(164) end; 

(1657) 81 : € SE > begin 

(166) y szy + 15 
(167) x sx + l 
(1682) end; 

(169) 82 : € Ins ) ChangePad (true); 
(170) 83 : ( Del )> ChangePad(false); 
(1712 62 : (F4 2 Trim; 

(1722 61 : CF3I ) Initialize; 
(1753) 60 : (F2 2 FillSquare; 
(174 59 : (Fl 2 Finish := true 
(175) end; 

(176) x 35 x and 73 

(1772 = y and 73 

(1782 if ord(ch) <> 61 then InvertPixel 
(179> end 

(1802 until Finish; 

(1812 TextMode 


182) end. 


Pattexen Designer 


(41,3E,GA,4E,56,EG, BB, EG) 


Rys. 21.12a Projektowanie wzoru zawartego w kwadracie 
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Pattern Designer 
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. |. 4 nia MŁ M LL m0 NB AM AI LT DA TZW 
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(08,89,36,22,49,22,36,48) 


Rys. 21.12b Projektowanie wzoru zawartego w okręgu 


Program Surface 


Program ten, przedstawiony na wydruku 21.13, służy do sporządzania 
wykresów powierzchni trójwymiarowych o równaniu z = f(x, y). Powierzch- 
nia jest przedstawiana w postaci siatki prostokątnej. Wykreśleniu podlega 
część powierzchni, której rzut na płaszczyznę z = O zawiera się w przedziale 
(cMin,xMax) i (yMin,yMax). Zakłada się, że oko obserwatora znajduje się 
w punkcie o współrzędnych sferycznych (Rad, Theta,Phi) w odległości D od 
ekranu, na który odbywa się rzutowanie. 

Wykonanie programu dzieli się na dwie fazy. W pierwszej następuje 
wyznaczenie ekstremalnych punktów powstałych z rzutowania powierzchni na 
ekran, a w drugiej utworzenie okna pokrywającego się z niemal całym ekranem 
i wykreślenie powierzchni. Na rys. 21.13 przedstawiono przykładowy rezultat 
wykonania programu dla powierzchni 


z = cos(,/x? +y”) 


Wydruk 21.13 Program Surface 
program Surface; 


($i Graph.p > 


const 
xl m Oj 
yl = Oj 
x2 m 6335 
y2 m 1995 
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var 


xMin,xMax,yMin,yMax : real; 
xCount,yCount 
x,y,z,dx,dy,Ax,Ay,Bx,By 
dxMin,dxMax „,dyMin,dyMax 
xSize,ySize : 
xOld,yO01d,xNew,yNew : integer; 
xStep,yStep : 
Rad,Theta,Phi,D : real; 
integer; 
boolean; 
sinT,cosT;sinP,cosP : real 


1i,j tt 
Show : 


const 


re 


re 


integer; 


al; 


al; 


Big = 97.9979999E+105 
Margin = O.l; 


function Fun(x,y 


begin 
Fun :s 
end; 


cos(sqrt(x £ x + y £ y))3 


real) : 


real; 
real; 


real; 


procedure FindEyeCoordinates; 


var 


XX;YYZZ 


begin 


: real; 


z :=5 Fun(x,y); 
XX 35 —% 


yy 3= 
zz := 
dx := 
dy := 
end; 


-x kt cosT t SsinP — y $ sinT tk SinP — 


$ sinT * y $ cosT; 
=x $$ cosT £ cosP — y tt sinT £ cosP + z t sinF;3 


D £ xx / zz; 
Dłyy / zz 


procedure 


begin 


xNew := 
yNew := 


end; 


procedure 


begin 
if dx 
14 dx 
if dy 
14 dy 

end; 


AVvAV 


FindScreenCoordinates; 


trunc (Ax + Bx £ dx); 
y2 — trunc(Ay + By $ dy) 


FindLimits; 


dxMax 
dxMin 
dyMax 
dyMin 


then dxMax 


then dxMin 


then dyMax 


then dyMin 


procedure FindWindow;j 


begin 
xSize 
ySize 
dxMin 
dxMax 
dyMin 
dyMax 


Bx :5 (x2 — x1) / (dxMax — dxMin)5 
By := (y2 — yl) / 


dxMax 
dyMax 
dxMin 
dxMax 
dyMin 
dyMax 


+ 
+ 


dxMin;3 
dyMin;j 
Margin 
Margin 
Margin 
Margin 


Ax := x1 — dxMin $$ Bx; 
Ay := yl -— dyMin $ By 


end; 


+ + + 3 


EELINL 
Q 
x 
«wa 


xSizej 
xSize;j 
ySize; 
ySize; 


(dyMax — dyMin);j 


| 
._ 


X cosP + Rad 
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begin 


xCount :s 205 
yCount := 203 


xMin := -5; 
xMax := Sg 
yMin := =S; 
yMax := S5 
Rad := 5303 
Theta := =0.5; 
Phi ss O.ó 

D := 10 
HiRes; 


Draw(0,0,639,0,1);. 
Draw(6537,0,639,199,1); 
Draw(6359,199,0,199,1); 
Draw(0,199,0,0,1)5 
SinT := sin(Theta); 


cosT := cos(Theta); 

SinP := sin(Phi)y 

cosFP := cos(Phi); 

«Step := (xMax — xMin) / xCount; 
yStep := (yMax — yMin) / yCount;$ 
dxMin := Big; 

dxMa» := - Big; 

dyMin := Big; 

dyMax := -Big; 


for Show := false to true do begin 
for i := © to «Count do begin 
x 3:5 xMin +,i X xStep3 
y s=5 yMin; 
FindEyeCoordinates;. 
1f Show then begin 
FindScreenCoordinates;j 
xOld := xNew; 
yO0ld := yNew; 
Flot (xOld,yO1ld,1) 
end else FindLimits;j 
for j :=s O to yCount do begin 
y := yMin + jJ £ yStep; 
FindEyeCoordinates;j 
1f Show then begin 
FindScreenCoordinatesg 
Draw(xOld,yO0Old,xNew,yNew,1); 
xOld := xNew; 
y01ld s= yNew 
end else Findllimits 
end 
end; 
for 1 :3:= O to yCount do begin 
y 3=7 yMin + i £ yStep; 
x sz= xliin; 
FindEyeCoordinates; 
17 Show then begin 
FindScreenCoordinates; 
xOld := xNew; 
yOld := yNew; 
Plot (xOld,yOld,1) 
end else FindLimits; 
for j is O to xCount do begin 
x rz xMin + j *k xStep; 
FindEyeCoordinatesj 
if Show then begin 
FindScreenCoordinates; 
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Draw(xOld,yO1d,xNew,yNew, 1); 
xOld := xNew;j 
y01ld :5 yNew 
end else FindLimits 
end 
end; 
14 not Show then FindWindow 
end; 


repeat until KeyPressedj 
TextMode 


end. 


Rys. 21.13 Wykreślanie powierzchni trójwymiarowych 


Program Animation 


Program ten, przedstawiony na wydruku 21.14, demonstruje użycie procedur 
GetPic i PutPic dla uzyskania efektów ruchowych. Rezultatem wykonania 
programu jest postać biegnącego chłopczyka, przedstawiona na rys. 21.14 
w różnych fazach ruchu. 
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Wydruk 21.14 Progrum Animation 


program Animation; 
(6$i Graph.p 2 


const 
Boy : array[O..3] of array[O..5,0..3,0..7] of byte = 


((C(C(800,3500,$500,800,$00,300,800,800), 
($00,$00,500,800,800,800,800,800), 
(S00,%00,501,$07,%1F,8IF,%43F,$IF), 
(500, $78,$FC,%$F4,$FO,$FO,$FO,$BO)), 


((5$00,200,500,800,$800,$800,800,%00), 
(500, $00,501,$%03,%07,S$0E,%0E,%0C), 
($JF,$%1F,SCF,$E7,%F7,97F,87E,$FE), 
($BO,$FB,SBB,$C8, $FO,$BO,$00,808)), 


((500,300,801,%03,*507,$OF,S0E,%0C), 
($01,%07,$CF,$CF,S$DF,$FF,SFF,$SEF), 
($FE,$FE,$FE, $FF,$F7,$E3,980,$8O), 
(78,878, 8FO,$sCO,$80,$00,800,800)), 


((S00,$00,$%00,500,900,800,800,%800), 
($C3Z,503,$03,501,$%01,300,800,$%00), 
(580, $83, 587, SCF, $FE,SFC,$FO,840), 
($00, 800, 800, $00,300,800,$500,$00))), 


(((500,800,$00,%800,$00,%00,$00,%800), 
($00,$00,800,$00,$00,800,%00,%$00), 
(500, 800, $00, $00, SOO, $00,%$03,$0F), 
(800, 800,$500,$00,%87C,%FE,$FE,$FC)), 


(($00,300,S00,800,500,800;800,%00), 
(800, 800, $00,$00,%01,803,307,%04), 
($1F,$IF;$IF,$1F,49F,$CF,$E7,$FF), 
($FB,%$FB,$FB,$DB,$DB,$FC,$DC,$E4)), 


((500,800,$00,800,%00,800,%00,%00), 
(806, 806, $OF,$3F,37F,SFF,$FF,$7F), 
($7F,$FE,$FC,$FC,SFC, SFD, SDF,$8F), 
($FB,$00,$00,860,$EO, SEO, $CO,$80)), 


(($00,8$00,$01,%$01,800,800,800,%00), 
($7F,SFF,SEF,$CF,91E,$7F,$FF,SFC), 
($8O, SCO, $CO,$00,800,$80,$00,%800), 
(800, 800, 800,$00,8500,$00,$00,800))), 


(((500,500,$00,800,800,$%00,$%00,%800), 
(500, 800, 800, 800, $00,$00,8500,%00), 
($00,800,$800,$03,807,$0F,$OF,$0F), 
($00,$00,37E,$FF,$FF,SFF,S$FC,SEC)), 


((5$00,800, 00,800, 500, $00,800,800), 
(800, 800, $00,800,300,$00,800,%00), 
($OF,$0F,$07,801,$501,307,$3F,SFF), 
(SEC, €FE, SEE, $F2, $FC, S$E0,$80,800)), 


((500,800,800,800,$00,800,$%00,%00), 
($01,%01,803,%07,$0F,$1F,$IF,$FF), 
($FF,SFF,SFE,SFF,SFF,SFC, $FF,SFF), 
(800, $00, 00, $80,$80,$00, $8O,$00)), 
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((8$01,S03,$OF,$1E,$1E,$1C,$1E,$1E), 
($FC, $CO, $00,$800,$00,$00, $00,$500), 
($FC,$IE,$0E, $00, $00,$00,$00,$500), 
($00,$00,$00,$00,$%00,300,$00,$500))), 


((($00,$00,$00,$00,%00,$%00,500,800), 
(600, 500, $00,$00,%00,$00,$00,%00), 
($00,$01, 507, $OF,$0F, $OF, $OF,$07), 
(£00,%FE,$FF, $FF, $FD,$FC,$EC,$EC)), 


(($00,$00,$00,$00,$00,400,%$3F,S$FE), 
($0D,$1F,$1E,$00,$00,$00,%07,%1F), 
4C7,$E3,$79,$IF,23F, $FE,$FF,SFF), 
(SFE, SEE, $F2, $FC, 900, $03, $87,S$FF)), 


((SFE,$FC, $3F, SIF, $1F,$00,$00,$800), 
($3F,$FF,$FF, SFF, SFF, $00, 800, 800), 
($FF,$FO, SEO, $CO,$FO,S$FB,SZF,$1F), 
($FC,$00,$00,$60,$EO,4EO, $CO,$CO0)), 


( (300, $00, $00, $00, 400, $00,500,%00), 
(200, 300, $00, $00,$%00, $00,$00,%00), 
($0F , $06, $00, $00, $00, $00,%00,$500), 
($8O, $00, $00,$00, $00,$00,$%00,$00)))); 


Mask : array[O..7J of byte = 
(128,64,532,16,8,4,2,1); 


var 
Buffer : array(O..3,1..166] of byteg 
xCoord,yCoord : integer; 
i,j,k,n,f : byte; 
x,y : integer; 
Ch : char; 


begin 
HiRes; 


Draw(0,0,6359,0,1)3 
Draw(0,0,0,1977,1);3 
Draw(637,0,639,199,1)5 
Draw(0,197,6359,199,1)3 


for f := O to 14 do begin 
xCoord := 16 + 7 X 403 
yCoord := 205 
for £ :=s O to 3 do 
for j := O to 3 do 
or k := O to 7 do begin 
y =” yCoord + i $£ 8 + kz 
for n := O to 7 do begin 
Xx 15 xCoord + j £ 8 + nz 
1f Boyl[f mod 4,1,J,k] and Maskln) <> O then 
Plot(x,y,l) 
end 
endj 
14 £ <€ 4 then 
GetPic (Buffer[l(f1],xCoord — B,yCoord, 
xCoord + 31,yCoord + 51)5 
end; 
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GotoXY(7,23)5 
Write('Animation')$ 


xCoord :s 8; 
yCoord := 140; 
for i :> O to 735 do begin 
1if i = 56 then begin 
repeat until KeyPressged; 
Read (Kbd,Ch) 
end$g 
PutPic (BufferCi mod 4)],xCooerd + i t 8,yCoord); 
Delay (200); 
end; 


repeat until KeyPressed; 


Tex tMode 


end. 


JZANISSNJA 


Animation 


Rys. 21.14 Uzyskiwanie cfektów ruchowych 


Dodatek A 


Tablica kodu ASCII 


dec hex char dec hex char dec hex char 
000 *"*Q NUL 26 IA "Z SUB 52 34 4 
101 "A SOH 27 IB "[ ESC 53 35 5 
202 ”B STX 28 IC "4 FS 54 36 6 
303 "C ETX 291D *"] GS 55 37 7 
404 *D EOT 301E ** RS 56 38 8 
505 "*E ENQ 311F *_US 57 39 9 
606 *F ACK 32 20 58 JA : 
707 *G BEL 33 21 ! 59 3B : 
808 "H BS 34 22 ” 60 3C < 
909 *I HT 35 23 + 61 3D = 
100A *J LF 36 24 $ 62 3E > 
110B *KVT 37 25 % 63 3F ? 
120C "L FF 38 26 © 6440 ©Q 
130D *MCR 39 27 » 6541 A 
140E *N SO 40 28 ( 66 42 B 
150F *O SI 41 29 ) 67 43 C 
1610 *P DLE 42 2A * 68 44 D 
1711 *Q DCI 43 2B + 69 45 E 
1812 *R DCZ 44 2C , 7046 F 
19 13 ”"S DC3 45 2D — 7147 G 
20 14 *T DC4 46 2E 72 48 H 
2115 *U NAK 47 2F / 73 49 I 
2216 *V SYN 48 30 0 74 4A J 
2317 *WETB 49 31 1 754B K 
24 18 *X CAN 50 32 2 76 4C€ L 
2519 *Y EM 51 33 3 77 4D M 


dec 


78 
719 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92 
93 

94 


hex char 


4E 
4F 
50 
51 
32 
53 
54 
5 
56 
57 
58 
59 
SA 
5B 
ŚĆ 
5D 
SE 


>W"MNKXE<CHUWOFWOZ 


A. Tablica kodu AŚC II 


dec 


char 


dec hex char 


112 
113 
114 
115 
116 
117 
118 
119 
120 
12] 
122 
123 
124 
125 
126 
127 


70 
71 
72 


TO NE X Z CET 2 T0U 


DEL 
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Dodatek B 


Kody znaków klawiatury IBM PC 


Naciśnięcie pewnego znaku klawiatury, ewentualnie łącznie z klawiszem Shift, 
Ctrl albo Alt, powoduje wprowadzenie do bufora wejściowego jednego ałbo 
dwóch znaków. Jeśli zostaną wprowadzone dwa znaki, to pierwszym z nich jest 
znak Esc o kodzie 27. 


Klucze bez Shift z Shift z Ctrl z Alt 


F1 2759 27 84 2794 27 104 

F2 2760 27 85 2795 27 105 

F3 2761 27 86 2796 27 106 

F4 2762 2787 2797 27 107 

F5 2763 27 88 2798 27 108 

F6 27 64 27 89 2799 27 109 

F7 2765 27 90 27 100 27110 

F8 2166 2791 27101 27111 

F9 2767 27 92 27102 27112 

F10 2768 27 93 27103 27113 

Klucze specjalne bez Shift z Shift z Ctrl zAlt 
— 2775 52 27115 27178 
— 2777 54 27116 27180 
1 2772 56 27160 27175 
l 2780 50 27164 27183 
Home 2771 55 27174 
End 27 79 49 27117 27182 
PgUp 2713 57 27132 27176 
PgDn 2781 51 27118 27184 
Ins 2782 48 27165 27185 
Del 2783 46 27166 27186 
Esc 27 27 27 27 
Back 8 8 127 

Tab 9 2715 


Cr 13 13 10 
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Litery bez Shift z Shift z Ctrl z Alt 


A 97 65 l 2730 
B 98 66 2 27 48 
C 99 67 3 2746 
D 100 68 4 2732 
E 101 69 5 27 18 
F 102 70 6 2733 
G 103 71 7 27 34 
H 104 72 8 2735 
I 105 73 9 2723 
J 106 74 10 2736 
K 107 75 11 2737 
L 108 76 12 2738 
M 109 77 13 2750 
N 110 78 14 27 49 
O 111 79 15 27 24 
P 112 80 16 27 25 
Q 113 81 17 27 16 
R 114 82 18 2719 
S 115 83 19 2731 
T 116 84 20 2720 
U 117 85 21 2722 
V 118 86 22 2747 
W 119 87 23 2717 
X 120 88 24 2745 
Y 121 89 25 2721 
Z 122 90 26 27 44 


Pozostałe znaki bez Shift z Shift z Ctrl z Alt 


[ 91 123 27 
j 92 124 28 

] 93 125 29 

j 96 126 

0 48 41 27 129 
1 49 33 27 120 
2 50 64 27 3 27121 
3 51 35 27122 
4 52 36 27123 
5 53 37 27 124 
6 54 94 30 27125 
7 55 38 27 126 
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8 56 42 27127 
9 57 40 27128 
* 42 27114 
+ 43 43 
— 45 95 31 27130 
= 61 43 27131 
44 60 
47 63 
: 59 58 
Przykład 
program FunctionKeys; 
var 
Ch : char; 
begin 
repeat 
Read(Kbd,Ch); 
if (Ch =[ ) and KeyPressed then begin 
Read ( Kbd,Ch); 
if ord (Ch) in [59..68] then 
Write (Key F',ord(Ch) — 59) 
else 
Write( Two char key') 
end 
else 


Write(One char key'), 
until Ch = *[ 
end. 


e Jeśli z klawiatury zostanie wyprowadzony jeden ze znaków F1—F10O to 
zostanie wyprowadzony napis 


Key Fn 


w którym n oznacza numer klucza. 


e Jeśli z klawiatury zostanie wprowadzony znak Esc, to spowoduje to 
zakończenie wykonywania programu. 

e W pozostałych przypadkach, stosownie do liczby znaków wprowadzonych 
do bufora wejściowego, zostanie wyprowadzony napis 


One char key 
albo 
Two char key. [m 


Dodatek C 


Błędy sygnalizowane podczas 
wykonywania programów 


Błędy, które mogą wystąpić podczas wykonywania programów dzielą się na 
błędy fatalne i błędy operacji wejścia/wyjścia. 
Błędy fatalne są sygnalizowane za pomocą napisu 

Run-time error NN, PC =addr 

Program aborted 

w którym NN jest numerem błędu, a addr jest adresem tego miejsca 
w programie, gdzie wykryto błąd. 
Błędy operacji wejścia/wyjścia są sygnalizowane za pomocą napisu 

I/O error NN, PC =addr 

Program aborted 
w którym NN i addr mają taką samą interpretację jak powyżej. 


Błędy fatalne 


01 Nadmiar stałopozycyjny. 

02 Dzielenie przez zero. 

03 Błąd argumentu funkcji Sqrt. 

04 Błąd argumentu funkcji Ln. 

10 Próba utworzenia danej łańcuchowej o rozmiarze przekraczającym 
255 znaków. Próba konwersji danej łańcuchowej, reprezentującej 
więcej niż I znak, w daną znakową. 


90 Niewłaściwy indeks w odwołaniu do tablicy. 

91 Próba przypisania danej spoza dopuszczalnego zakresu. 

92 Wartość argumentu funkcji Trunc albo Round spoza dopuszczalnego 
zakresu. 


FF Brak wolnego miejsca w pamięci. 


C. Błędy sygnalizowane podczas wykonywania programów 
operacji wejścia/wyjścia 


Plik nie istnieje. 

Plik nie jest otwarty. 

Plik nie jest otwarty do wyprowadzania. 
Plik nie jest otwarty. 

Błąd reprezentacji liczby. 
Zabroniona operacja. 

Zabroniona operacja. 

Zabronione użycie procedury Assign. 
Niezgodność rozmiarów rekordów. 
Nieoczekiwany koniec pliku. 

Błąd operacji zapisu na dysk. 
Przepełnienie katalogu. 

Przepełnienie pliku. 

Brak pliku. 


Dodatek D 


Edytor ekranowy 


Pojęcia podstawowe 


Edytor tekstów WordStar został wprowadzony na rynek mikrokomputerowy 
przez firmę MicroPro już w 1977 roku. Główną zaletą, która w znacznej mierze 
przyczyniła się do jego rozpowszechnienia, było założenie natychmiastowej 
edycji ekranowej oraz przyjęcie rozwiązań niezależnych od sprzętu nie- 
zbędnego do wdrożenia edytora. Mimo pojawienia się wielu konkurencyjnych 
implementacji edytorów tekstów, WordStar zachował swoją wiodącą pozycję 
1 w postaci kilku mutacji jest dostępny zarówno na mikrokomputerach 
8-bitowych jak i 16-bitowych. W dalszej części opisu zostanie on przedsta- 
wiony w postaci, w jakiej jest implementowany w systemie Turbo Pascal. 


W odróżnieniu od wielu innych edytorów edytor WordStar jest zorientowany 
na wprowadzenie tekstu, a nie na przyjmowanie dyrektyw przetwarzania 
tekstu. Konsekwencją tego założenia jest sterowanie operacjami na tekście za 
pomocą znaków, które nie mają bezpośredniej reprezentacji graficznej. Takie 
znaki będą nazywane znakami sterującymi, a ich użycie będzie się sprowadzać 
do jednoczesnego naciśnięcia klawisza znaku CTRL oraz jednego albo dwóch 
klawiszy znaków literowych dodatkowych. Ponieważ w dalszym opisie od- 
woływanie się do znaków sterujących będzie występować bardzo często, 
zostanie przyjęta umowa oznaczania znaków sterujących za pomocą symbolu 
A (caret) reprezentującego naciśnięcie znaku CTRL. W szczególności nadanie 
znaku sterującego CTRL A będzie w skrócie nazywane wydaniem dyrektywy 
AA, co uzyskuje się przez naciśnięcie klawisza CTRL i jednocześnie klawisza 
oznaczonego literą A. W tych przypadkach gdy sterowanie edytorem odbywa 
Się za pomocą pary znaków sterujących, np. * KB (także nazywanej dyrektywą) 
należy nacisnąć klawisz CTRL, a następnie kolejno klawisze oznaczone 
literami K i B (podczas naciskania drugiego z tych klawiszy zbędne jest 
wciskanie klawisza CTRL). 
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Typowa sesja współpracy z edytorem WordStar zaczyna się od wydania 
w głównym menu dyrektywy E. Powoduje to wywołanie edytora i umieszczenie 
na ekranie monitora początkowej części zbioru roboczego zidentyfikowanego 
uprzednio za pomocą dyrektywy W. Po wprowadzeniu tekstu tego zbioru albo 
po dokonaniu w nim zmian, należy posłużyć się dyrektywą edytora *KD. 
Spowoduje to zakończenie edycji i powrót do głównego menu. W tym 
momencie można posłużyć się dyrektywą S — dla zapamiętania zbioru 
roboczego na dysku. 


Bezpośrednio po wywołaniu edytora można traktować komputer jako 
wielofunkcyjną maszynę do pisania. Maszyna taka ma tę właściwość, że każdy 
wprowadzony znak pojawia się natychmiast na ekranie. Błędnie wprowadzone 
pojedyncze litery można usuwać za pomocą klawisza (Backspace). Jeśli błędy 
występują we wcześniej wprowadzonych słowach, to można przesunąć kursor 
nad takie słowa i dokonać natychmiastowej poprawki. Zasady takiego 
poprawiania zostaną omówione w następnym punkcie. 


Wprowadzenie, zmiany i usuwanie porcji tekstu 


Jak już wyjaśniono, bezpośrednio po aktywowaniu edytora, następuje przejście 
do tworzenia albo aktualizowania tekstu. Odbywa się to poprzez wprowa- 
dzanie słów albo operowanie na słowach już wprowadzonych. Pod pojęciem 
słowa jest rozumiany dowolny ciąg znaków zakończony spacją albo jednym ze 
znaków przestankowych, takich jak np., (przecinek), . (kropka), : (dwukropek), 
* (apostrof). 


W obrębie tekstu wyświetlanego na ekranie monitora jeden ze znaków jest 
wyróżniony za pomocą kursora. Operacje na znakach i słowach są zawsze 
wykonywane w odniesieniu do tego znaku, zawierajacego go słowa albo 
wiersza. Przesuwanie kursora może także dotyczyć pojedynczych znaków, słów 
albo wierszy. Może ponadto dotyczyć ekranów, tj. porcji tekstu obejmujących 
większą liczbę wierszy, zbliżoną do pojemności ekranu monitora. 


Przesunięcie kursora o jedną pozycję w lewo, w prawo, w górę i w dół odbywa 
się za pomocą dyrektyw *E, *S, "Di *X, których klawisze tworzą romb 


E 
S D 
X 


Jak łatwo się domyślić, dyrektywa "E przesuwa kursor o jeden wiersz w górę, 
dyrektywa "X przesuwa go o jeden wiersz w dół, a dyrektywy *S i *D 
przesuwają kursor odpowiednio o jedną pozycję w lewo i o jedną pozycję 
w prawo. Dzięki takiemu rozwiązaniu, o funkcji dyrektywy decyduje nie 
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mnemonika nazwy jej klawisza lecz położenie klawisza w przytoczonym 
układzie czterokierunkowym. 


Przesuwanie kursora o pojedyncze słowa jest realizowane za pomocą dwóch 
dodatkowych dyrektyw "A i *F 
E 
AS DF 
X 


Użycie dyrektywy "A powoduje przesunięcie kursora o jedno słowo w lewo, 
a użycie dyrektywy *F powoduje przesunięcie kursora o jedno słowo w prawo. 


Kolejna para dyrektyw: *R i *Csłuży do przesunięcia kursora odpowiednio 
do poprzedniego i następnego ekranu. Klawisze tych dyrektyw są usytuowane 
z prawej strony osi wyznaczonej przez klawisze E-X. Z lewej strony tej osi 
znajduje się para klawiszy, które przesuwają tekst na ekranie o jeden wiersz: 
*W w dół i *Z w górę. Tak więc ostatecznie układ klawiszy wykorzysty- 
wanych do sterowania położeniem kursora oraz określających porcję 
wyświetlanego tekstu przybiera postać 


W E R 
A S$ D F 
y X Cc 


Układ ten jest łatwy do zapamiętania i nie wymaga identyfikowania klawiszy 
z opatrującymi je napisami. 

Z prawej strony tego zestawu klawiszy znajdują się trzy klawisze dyrektyw "T, 
*Y 1 ©G tworzące układ 


T Y 
G 


Użycie dyrektywy *G powoduje usunięcie znaku wyróżnionego przez kursor, 
użycie dyrektywy *T powoduje usunięcie znaków od znaku wyróżnionego 
przez kursor — do końca słowa, a użycie dyrektywy *Y powoduje usunięcie 
wiersza, w którym znajduje się kursor. 


Uzupełnieniem przytoczonego repertuaru dyrektyw jest znak (Backspace), 
którego naciśnięcie powoduje usunięcie znaku poprzedzającego znak wyróż- 
niony przez kursor. 


Podsumowanie 

"E Przesunięcie kursora o jeden wiersz do góry, z zachowaniem pozycji 
kolumny. 

X Przesunięcie kursora o jeden wiersz do doh: z zachowaniem pozycji 


kolumny. 
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"S Przesunięcie kursora o jedną pozycję w lewo. 

*"D Przesunięcie kursora o jedną pozycję w prawo. 

"A Przesunięcie kursora do początku słowa w lewo. 

"F Przesunięcie kursora do początku słowa w prawo. 

*R Przesunięcie „okna”, przez które widziany jest dokument o jeden 
ekran do góry. 

Cc Przesunięcie „okna”, przez które widziany jest dokument o jeden 
ekran do dołu. 

"W Przesunięcie tekstu na ekranie o jeden wiersz w dół. 

Ż Przesunięcie tekstu na ekranie o jeden wiersz do góry. 

4G Usunięcie znaku wyróżnionego przez kursor. 

AT Usunięcie znaku wyróżnionego przez kursor oraz następujących po 
nim znaków danego słowa. 

sy Usunięcie wiersza, w którym znajduje się znak wyróżniony przez 
kursor. 

Del Usunięcie znaku wyróżnionego przez kursor. 


Przytoczony tu repertuar dyrektyw, umożliwiający wizualizację i usuwanie 
dowolnych parti tekstu został w edytorze WordStar wzbogacony dyrektywą 
*N do wstawiania pustych wierszy oraz dodatkowym zestawem dyrektyw 
realizujących funkcje zbliżone do poprzednio omówionych — tyle że z 
większym „skokiem”. Każda z takich dyrektyw składa się ze znaku *Q, 
bezpośrednio po którym występuje jeden ze znaków tworzących układ 


E R 
S D 
X C 


Dyrektywa "QE powoduje przesunięcie kursora do pierwszego wiersza 
ekranu, dyrektywa *QX powoduje przesunięcie kursora do ostatniego wiersza 
ekranu, dyrektywa "QS powoduje przesunięcie kursora do początku, a 
dyrektywa "QD powoduje przesunięcie kursora do końca tego wiersza, 
w którym znajduje się kursor. Dwie pozostałe dyrektywy "*QR i "QC 
powodują odpowiednio przesunięcie kursora do początku i do końca tekstu. 


Przesuwanie kursora za pomocą dowolnych zestawów wymienionych tu 
dyrektyw może służyć dwóm celom: przemieszczaniu się w obrębie tekstu oraz 
przemieszczaniu się do obszaru, w którym mają być dokonane zmiany. W tym 
drugim przypadku zmiany mogą polegać na uzupełnieniu tekstu albo za- 
stąpieniu go innym. W celu uzupełnienia tekstu wystarczy wprowadzić go 
z klawiatury. Edytor wstawi taki tekst przed znak wyróżniony przez kursor, 
dokonując na bieżąco przesunięcia znaku wyróżnionego oraz znaków po nim 
następujących. W celu zmiany tekstu można go najpierw usunąć, albo zastąpić 
nowym — na zasadzie uzupełnienia, albo stary tekst wyrugować nowym. To 
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ostatnie rozwiązanie nie należy do najlepszych, gdyż rzadko się zdarza aby 
stary I nowy tekst były tej samej długości. Ponadto jego zastosowanie wymaga 
przejściowego wyłączenia opcji rozsuwania tekstu, pociągając za sobą koniecz- 
ność posłużenia się dyrektywą *V. Każdorazowe użycie tego znaku powoduje 
przełączenie edytora ze stanu zastępowania tekstu w stan wstawiania tekstu 
i odwrotnie. Jego dokładne działanie najlepiej jest wypraktykować. śledząc 
zmiany dokonujące się na ekranie. 


Złożone operacje na tekście 


Opisane dotychczas dyrektywy umożliwiają nie tylko tworzenie, ale również 
praktycznie dowolne przetwarzanie dokumentów. Tym niemniej w pewnych 
przypadkach przydatne są operacje dotyczące większych fragmentów tekstu, 
takie jak np. przestawienie lub kopiowanie grup sąsiadujących wierszy albo 
wyszukiwanie lub zmiana określanych słów lub fraz. Do takich celów służą 
omówione tu dyrektywy blokowe. 


Dyrektywa "QF 
Po wykonaniu tej dyrektywy na ekranie pojawia się napis 
FIND: 


stanowiący zapytanie o frazę, która ma być wyszukana w tekście. Fraza taka 
składa się z dowolnej porcji znaków zakończonej znakiem Enter. Bezpośrednio 
po naciśnięciu klawisza Enter na ekranie pojawia się zapytanie 


OPTIONS: 


na które należy odpowiedzieć określeniem trybu poszukiwania fazy. W naj- 
częściej używanym przypadku — poszukiwania frazy począwszy od pozycji 
wyróżnionej przez kursor w kierunku końca tekstu, wystarczy w odpowiedzi 
na zapytanie nacisnąć klawisz Enter. Jeśli poszukiwana fraza znajduje się 
w tekście, to kursor zostanie umieszczony bezpośrednio za ostatnim znakiem 
znalezionej frazy. Jak łatwo się domyślić, użycie dyrektywy "QF nie jest 
niczym innym jak posłużeniem się dyrektywą edytora kontekstowego. Należy 
nadmienić, że wśród opcji określających tryb poszukiwania frazy znajdują się 
m.in. takie jak 


B poszukuj wstecz, 

W ogranicz się do pełnych słów, 

U utożsamiaj litery duże i małe. 
Ponadto można posłużyć się opcją mającą postać liczby. W takim przypadku, 
dla liczby n, poszukiwanie dotyczy n-tego wystąpienia poszukiwanej frazy. 
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Dyrektywa "QA 


Dyrektywa "QA stanowi rozwinięcie dyrektywy *QF. Bezpośrednio po jej 
użyciu także pojawia się zapytanie o poszukiwaną frazę, ale po naciśnięciu 
kończącego ją klawisza Enter pojawia się zapytanie o frazę 


REPLACE WITH: 


na które należy odpowiedzieć frazą, która ma zastąpić frazę podaną po FIND. 
Po tej drugiej frazie. także zakończonej naciśnięciem klawisza Enter, pojawia 
się znane zapytanie o opcje określające tryb poszukiwania frazy. Poza opcjami 
już wymienionymi dopuszczalne są tu także opcje 


G zastępuj w całym tekście (a więc nie od pozycji wyróżnionej przez 
kursor, lecz od pierwszego znaku tekstu), 
N zastępuj bezwarunkowo. 


Jeśli użyto opcji N, to wykonanie dyrektywy przebiega aż do wykonania 
wszystkich zastąpień. Jeśli nie użyto tej opcji, to po każdym znalezieniu 
poszukiwanej frazy wyświetlane jest zapytanie, czy należy dokonać zastąpienia. 
Odpowiedź Y stanowi zgodę na zastąpienie. Dowolna inna odpowiedź 
powoduje zaniechanie proponowanego zastąpienia i podjęcie poszukiwania 
następnego wystąpienia zastępowanej frazy. Przerwanie tego procesu można 
uzyskać za pomocą dyrektywy "U. 


Dyrektywa *KB 


Wykonanie dyrektywy * KB powoduje oznaczenie miejsca w tekście jako tzw. 
początku bloku. Zdefiniowanie bloku wymaga dodatkowo użycia dyrektywy 
KK. 


Dyrektywa "KK 


Wykonanie dyrektywy "KK powoduje oznaczenie miejsca w tekście jako tzw. 
końca bloku. Dyrektywa ta wraz z dyrektywa "KB definiuje blok. Z chwilą 
zdefiniowania bloku ciąg znaków tekstu znajdujący się pomiędzy pozycjami 
kursora w chwili wykonywania dyrektyw "KB i *KK zostaje wyróżniony za 
pomocą inwersji znaków albo ich przyciemnienia. Dalej opisane dyrektywy 
grupy "Kx będą dotyczyć tej właśnie partii tekstu. 


Dyrektywa "KC 


Wykonanie dyrektywy "KC powoduje skopiowanie bloku wyróżnionego 
przez dyrektywy "KBi *KK na pozycję przed znak wyróżniony przez kursor. 
Po tej operacji kursor zostanie ustawiony na pierwszym znaku skopiowanego 
bloku. 
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Dyrektywa *KYV 


Wykonanie dyrektywy "KV powoduje przeniesienie bloku wyróżnionego 
przez dyrektywy *KBi *KK na pozycję przed znak wyróżniony przez kursor. 
Po tej operacji kursor'zostanie ustawiony na pierwszym znaku przeniesionego 
bloku, który w swojej nowej pozycji pozostanie blokiem wyróżnionym. 


Dyrektywa "KY 


Wykonanie dyrektywy *KY powoduje usunięcie wyróżnionego bloku. Można 
dla przykładu nadmienić, że jedynym skutkiem wykonania ciągu dyrektyw 
"KB, "KK, "KY jest anulowanie wyróżnienia bloku. 


Dyrektywa *KR 


Wykonanie dyrektywy "KR powoduje wstawienie w miejscu wyróżnionym 
przez kursor tekstu znajdującego się w zbiorze dyskowym. Bezpośrednio po 
nadaniu tej dyrektywy na ekranie monitora pojawia się zapytanie 


Read block from file: 


o nazwę włączonego zbioru. 


Dyrektywa "KW 


Wykonanie dyrektywy "KW powoduje wyprowadzenie do zbioru dyskowego 
bloku tekstu wyróżnionego przez dyrektywy "KB i *KK. Bezpośrednio po 
użyciu tej dyrektywy na ekranie monitora pojawia się zapytanie 

Write block from file: 


o nazwę zbioru, w którym zostanie umieszczony wyróżniony blok. Jeśli zbiór 
taki już istnieje, to przed umieszczeniem w nim bloku zostanie usunięty, 
a następnie utworzony ponownie. 


Dyrektywy pomocnicze 

Dyrektywa *N 

Wykonanie dyrektywy *N powoduje wstawienie w miejscu wyróżnionym 
przez kursor pary znaków cr-lf, tj. wstawienie nowego wiersza. 


Dyrektywa "I 


Wykonanie dyrektywy "I powoduje przesunięcie kursora do najbliższej 
pozycji tabulacyjnej. Pozycją tą jest początek słowa w wierszu ponad kur- 
sorem. 
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Dyrektywa *L 


Wykonanie dyrektywy *L powoduje powtórzenie ostatniej dyrektywy *QF. 


Dyrektywa *U 


Wykonanie dyrektywy "U powoduje zaniechanie wykonania dowolnej 
dyrektywy. 


Dyrektywa *P 


Wykonanie dyrektywy * P powoduje, że następujący bezpośrednio za nią znak 
sterujący jest umieszczany w tekście. W szczególności wprowadzenie sekwencji 
znaków "*P"*M*P"J umożliwia identyfikację pary znaków cr-lf kończącej 
każdy wiersz tekstu. 

Przykład 


Przesunięcie całego tekstu o 5 kolumn w prawo wymaga wprowadzenia 


z klawiatury następujących znaków (znak Enter oznaczono symbolem e, 
a spację symbolem s) 


„QRsssss 
AQA"P"M*P*Je*"P"M*P* JssssseNGr D 


Dodatek E 


Grafika w Turbo Pascalu 4.0 


Pod koniec 1987 r. pojawiła się na rynku informatycznym nowa wersja języka 
Turbo Pascal opracowana wyłącznie z przeznaczeniem dla mikrokomputerów 
rodziny IBM PC. Wersja ta spotkała się z wielkim zainteresowaniem użytkow- 
ników, od dawna oczekujących implementacji, w której miały być przełamane 
liczne ograniczenia i niedogodności wersji 3.0. 


Jak wynika z pierwszych ocen, nowa wersja języka spełniła pokładane w niej 
nadzieje. Do najbardziej znaczących, nowych jej możliwości należy zaliczyć: 


e udostępnienie bardzo wygodnego i znacznie rozszerzonego środowiska 
operacyjnego; 

e blisko trzykrotne zwiększenie szybkości kompilowania programów (do 27 
tys. wierszy na minutę w przypadku użycia mikrokomputera IBM PC/AT 
8MHzZ); 

e umożliwienie kompilowania programów, których kod rezydujący w pamięci 
operacyjnej zajmuje więcej niż 64 KB; 

e udostępnienie środków kompilacji warunkowej i sterowania sposobem 
generowania kodu za pomocą dyrektyw preprocesora; 

e stworzenie możliwości dzielenia dużych programów na rozłącznie kom- 
pilowane moduły; 

e udostępnienie nowych typów standardowych, ułatwiających programowanie 
systemowe; 

e udostępnienie obszernej, wstępnie skompilowanej biblioteki podprogramów 
graficznych; 

e udostępnienie mechanizmów umożliwiających tworzenie programów wyni- 
kowych z podprogramów napisanych w różnych językach programowania; 
e zwiększenie jakości generowanego kodu przez jego optymalizację i elimino- 
wanie z programu wynikowego zbędnych podprogramów bibliotecznych; 

e zwiększenie zgodności języka ze standardem ANSI. 
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Bez wątpienia największą nowością Turbo Pascala 4.0 jest koncepcja modu- 
łów. Umożliwia ona tworzenie wstępnie skompilowanych bibliotek typów, 
zmiennych i podprogramów i korzystanie z nich w różnych programach bez 
potrzeby powtórnej kompilacji. Jedną z takich bibliotek jest moduł Grapli 
zawierajacy ok. 70 nowych podprogramów graficznych, ułatwiających pisanie 
programów niezależnych od użytego środowiska graficznego. 


Struktura modułu nie odbiega istotnie od struktury programu. Podobnie jak 
program, moduł składa się z nagłówka, deklaracji i części wykonawczej 
zakończonej kropką. W odróżnieniu od programu, część deklaracyjna modułu 
jest rozbita na część publiczną i prywatną. Część publiczna charakteryzuje się 
tym, że wszystkie zadeklarowane w niej obiekty są znane poza modułem. 
Natomiast obiekty zadeklarowane w części prywatnej są znane tylko w obrębie 
modułu. Z podziału tego wynika jedna bardzo ważna właściwość modułów, 
a mianowicie: jeśli moduł A korzysta z zasobów modułu B, to po skom- 
pilowaniu najpierw modułu B, a potem modułu A i ewentualnym dokonaniu 
zmian w części prywatnej modułu B, nie trzeba już kompilować modułu 4. 
O implementacji mającej tę właściwość mówi się, że zapewnia kompilację 
rozłączną. 


Przykład. Program odwołujący się do modułów 


program Main; unit Lib; 
uses interface 
Lib,Crt; procedure Sub(var Par : byte); 
var implementation 
Fix : byle; procedure Sub; 
begin begin 
ClrScr; Par:= Par+7 
Fix : = 6; end; 
Sub(Fix); end. 
Mrite(Fix) 
end. 


„gram Main zawiera wyszczególnienie modułów 


uses 
Lib,Crt; 


/ którym zadeklarowano zamiar posłużenia się przytoczonym wyżej modułem 
iib oraz modułem bibliotecznym Crt (zawartym w bibliotece modułów 
TURBO.TPL). Moduł Lib składa się z części publicznej 


interface 
procedure Sub(var Par : byte); 
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w której podano zewnętrzne właściwości procedury Sub, oraz z części prywat- 
nej 


implementation 
procedure Sub; 
begin 
Par:= Par+ 17 
end; 
end. 


zawierającej szczegóły implementacyjne tej procedury. 


Innym, ważnym rozszerzeniem Turbo Pascala 4.0 są dodatkowe typy cał- 
kowite: shortint, longint i word, typy rzeczywiste: single, double, extended i comp, 
oraz typ wskazujący pointer. 


Typ całkowity shortint jest związany ze zbiorem danych o wartościach 
z przedziału —128..127, typ longint jest związany ze zbiorem danych 
o wartościach z przedziału 


—2 147 483 648..2 147 483 647 


a typ word jest związany ze zbiorem danych o wartościach z przedziału 
0..65525. Jak łatwo wywnioskować, dane typu shortint są 1-bajtowe, dane typu 
word są 2-bajtowe, a dane typu longint są 4-bajtowe. 


Typy rzeczywiste single, double, extended i comp znacznie ułatwiają 1 przy- 
spieszają wykonywanie działań na danych zmiennopozycyjnych. Dane tych 
typów mogą być jednak użyte tylko w programach posługujących się ko- 
procesorem arytmetycznym. 


Typ wskazujący pointer jest związany ze zbiorem wskazań adresowych, to jest 
takich wskazań, które mogą lokalizować dowolne obszary pamięci operacyjnej, 
a nie jak dotychczas, tylko takie obszary, w których znajdują się zmienne 
określonego typu. 


Oprócz wyposażenia w moduły i nowe typy danych, Turbo Pascal rozszerzono 
o środki do deklarowania podprogramów do obsługiwania przerwań i definio- 
wania podprogramów otwartych, wzbogacono go o kilka nowych operatorów 
oraz rozbudowano o znacznie rozszerzoną, wstępnie skompilowaną bibliotekę 
podprogramów graficznych. Opis tej biblioteki, zawartej w modułach Graph 
i Crt, stanowi istotę niniejszego Dodatku. Zostanie on poprzedzony prezenta- 
cją nowego środowiska operacyjnego systemu Turbo Pascal oraz krótkim 
omówieniem zasad posługiwania się podprogramami graficznymi wersji 4.0. 
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Środowisko operacyjne 


Wywołanie systemu Turbo Pascal odbywa się za pomocą dyrektywy Tiurbo. 
Bezpośrednio po wykonaniu tej czynności, na ekranie pojawia się główne 
menu, a na jego tle informacja o numerze wersji systemu. Naciśnięcie 
dowolnego klawisza klawiatury powoduje usunięcie tej informacji i odsłonięcie 
ekranu podzielonego na następujące części: 

— wiersz menu, składający się z pól File, Edit, Run, Compile i Options, 
— okienko edytora, zatytułowane Edit, 

— okienko wyjściowe, zatytułowane Output, 

— wiersz opisów kluczy, zawierający informacje na temat funkcji przypisa- 
nych wybranym klawiszom Fn. 


W każdej chwili posługiwania się systemem Turbo Pascal jest aktywny wiersz 
menu albo jedno z wymienionych okienek. Ponadto na ekran mogą być 
przywoływane okienka pomocnicze związane z realizowaniem funkcji systemu. 
W szczególności naciśnięcie w dowolnej chwili klawisza Alt-F10 powoduje 
wyświetlenie na ekranie okienka pomocniczego zawierającego informację 
o numerze wersji systemu. 


Aktywność wiersza menu jest uwidoczniona przez wyróżnienie przez inwersję 
jednego z jego pól. Aktywność okienka edycyjnego albo wyjściowego objawia 
się zwiększeniem jasności słowa tytułującego okienko (odpowiednio Edit albo 
Output) oraz zmianą pojedynczej linii, na której znajduje się to słowo, na linię 
podwójną. 


Uaktywnienie wiersza menu następuje po naciśnięciu klawisza F10. Czynność 
ta może być wykonana w dowolnym momencie działania systemu. Wybranie 
funkcji określonej przez główne menu może być dokonane na kilka sposobów. 
Najprostszym jest wprowadzenie z klawiatury pierwszej litery pola wymienio- 
nego w menu. Można też posłużyć się klawiszami strzałek poziomych, a po 
przemieszczeniu się na wybrane pole menu, nacisnąć klawisz Enter. W każdym 
z opisanych przypadków (z wyjątkiem Run i Edit) nastąpi wywołanie podmenu 
zawierającego opcje. Wybranie funkcji określonej przez opcję podmenu od- 
bywa się analogicznie do wyboru funkcji z menu (tym razem używa się 
klawiszy strzałek pionowych) i może powodować wywołanie kolejnego pod- 
menu. Należy dodać, że jeśli po wybraniu pierwszego podmenu zostaną użyte 
klawisze strzałek poziomych, to na ekran będą przywołane sąsiednie podmenu 
głównego menu. Właściwość ta jest bardzo przydatna w początkowym okresie 
zapoznawania się z systemem, kiedy rozmieszczenie jego funkcji między 
podmenu nie jest jeszcze dobrze znane. 


W przypadku omyłkowego wyboru podmenu może cofnąć się na wyższy 
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poziom menu naciskając klawisz Esc. Naciśnięcie tego klawisza w głównym 
menu powoduje uaktywnienie ostatnio aktywnego okienka edycyjnego albo 
wyjściowego. 


Wybieranie funkcji głównego menu może być znacznie przyspieszone za 
pomocą klawisza Alt. Naciśnięcie go w dowolnym momencie wraz z pierwszą 
literą pola głównego menu powoduje natychmiastowe wykonanie funkcji 
związanej z tym polem. W szczególności oznacza to, że w celu wykonania 
funkcji Run głównego menu, wystarczy wprowadzić z klawiatury znak Alt-R 
(zamiast naciskać najpierw klawisz F10, a następnie R). 

Oprócz wymienionych klawiszy F10, AIt-F1O0 i Alt-p (gdzie p jest pierwszą 
literą pola głównego menu), wiele użytecznych funkcji spełniają klawisze Fn 


1 Alt-Fn: 

F1 — przywołanie na ekran informacji pomocniczych związanych z bie- 
żącym kontekstem użycia systemu; 

F2 — zapamiętanie na dysku tekstu znajdującego się w okienku edycyj- 
nym; 

F3 — podjęcie akcji umożliwiającej załadowanie do okienka edycyjnego 


zbioru o dowolnie wybranej nazwie (przez domniemanie przyjmuje 
się, że jest to zbiór z rozszerzeniem .PAS); 


F5 — powiększenie (lub zmniejszenie) okienka aktywnego; 

F6 — przełączenie aktywności między okienkiem edycyjnym i wyjścio- 
wym; z dowolnego menu — przywrócenie aktywności okienka; 

F9 — skompilowanie programu wykonywalnego w trybie Make (przez 


domniemanie przyjmuje się, że chodzi o program Zzródłowy znaj- 
dujący się w okienku edycyjnym); 


AIt-F1 — przywołanie na ekran ostatnio wyświetlanych informacji pomoc- 
niczych; 

AIt-F3 — podjęcie akcji umożliwiającej załadowanie do okienka edycyjnego 
jednego z ostatnio używanych zbiorów Zródłowych; 

AIt-F5 — ujawnienie pełnego ekranu, na który są wyprowadzane wyniki 


wykonywania programów (część tego ekranu jest wyświetlana 
w okienku wyjściowym); 

AIt-F9 — skompilowanie programu albo modułu źródłowego znajdującego 
się w okienku wyjściowym. 


Funkcja określona przez każdy z wymienionych klawiszy może być wykonana 
w dowolnym kontekście (oczywiście poza okresem wykonywania programu). 
W celu zakończenia współpracy z systemem Turbo Pascal można posłużyć się 
klawiszem Alt-X. Spowoduje to wykonanie czynności kończących i wywołanie 


systemu DOS. 
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Przygotowywanie programów 


Integralną częścią systemu Turbo Pascal jest edytor ekranowy wzorowany na 
edytorze WordStar. Jest on wywoływany z głównego menu (np. przez 
wciśnięcie klawisza E) albo z dowolnego innego kontekstu (np. klawisz Alt-E). 
Tym, którzy nie znają edytora WordStar wystarczy podać, że przemieszczanie 
kursora w górę, w dół, w lewo i w prawo odbywa się za pomocą klawiszy 
strzałkowych, usuwanie znaków — za pomocą klawiszy Backspace (—) 
i Delete (Del), usuwanie wierszy — za pomocą klawisza Ctrl-Y, a wstawienie 
wierszy pustych — za pomocą klawisza Ctrl-N. Poza wymienionymi, wiele 
użytecznych funkcji spełniają następujące klawisze: 


Home — przesunięcie kursora na początek wiersza; 

End — przesunięcie kursora na koniec wiersza; 

Ctrl-Home — przesunięcie kursora do pierwszego wiersza ekranu; 
Crtl-End  — przesunięcie kursora do ostatniego wiersza ekranu; 
PgUp — przywołanie na ekran poprzedniej strony; 

PgDn — przywołanie na ekran następnej strony; 


Ctrl-PgUp — przesunięcie kursora do początku tekstu; 
Ctrl-PgDn — przesunięcie kursora do końca tekstu. 


Jeśli podczas przygotowywania tekstu źródłowego (programu albo modułu) 
zostanie naciśnięty klawisz Ctrl-Fl, to na ekranic zostaną wyświetlone 
informacje na temat wyróżnionego przez kursor elementu języka. W szczegól- 
ności, jeśli będzie to dotyczyć słowa InitGraph, które jest nazwą jednej z funkcji 
graficznych, to na ekranie pojawi się krótki opis tej funkcji oraz wykaz funkcji 
jej pokrewnych. 


Zakończenie redagowania nie wymaga wykonania specjalnych czynności. 
Pożądane jest jednak zapamiętanie wprowadzonego tekstu w zbiorze dysko- 
wym. W tym celu wystarczy nacisnąć klawisz F2 lub też po wywołaniu 
głównego menu (klawisz F10) wybrać pole File (klawisz F), a następnie opcję 
S (Save), albo W (Write). 


Zalecanym sposobem przygotowywania zbiorów źródłowych jest przyspieszo- 
ne wybranie pola File (klawisz Alt-F), a następnie opcji Load (klawisz L). Po 
wykonaniu tych czynności na ekranie jest wyświetlane okienko pomocnicze, 
w którym należy podać nazwę zbioru. Jeśli nie jest to nazwa już wyświetlana, 
to należy wprowadzić ją z klawiatury i nacisnąć klawisz Enter. Jeśli jest 
zbliżona do wyświetlanej, to można poddać ją redagowaniu i w dowolnym 
momencie nacisnąć klawisz Enter. Spowoduje to załadowanie podanego zbioru 
do okienka edycyjnego. Jeśli zbiór taki nie istnieje, to okienko edycyjne 
zostanie wyczyszczone. Wprowadzony tekst można zapamiętać na dysku 
(klawisz F2) jako zbiór o uprzednio podanej nazwie. 
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Innym sposobem przygotowania tekstu jest przyspieszone wybranie pola File 
(klawisz Alt-F), a następnie wybranie opcji New (klawisz N). Spowoduje to 
wyczyszczenie okienka edycyjnego i obranie nazwy zbioru NONAME.PAS. 
Jeśli po zakończeniu redagowania podejmie się akcję zapamiętania tekstu, to 
na ekran zostanie przywołane okienko zawierające zapytanie, czy nazwa 
NONAME.PAS nie powinna zostać zmieniona na inną. Po udzieleniu od- 
powiedzi nastąpi dokończenie akcji. 


Przykłady. Tworzenie i modyfikowanie programów. 
a. Utworzenie nowego programu i zapamiętanie go na dysku 


begin 
Write( Hello, I am JanB') 
end. 


Wykaz czynności: 


o wybranie pola głównego menu (klawisz Alt-F); 
e wybranie opcji Load (klawisz L); 

© określenie nazwy zbioru; 

e wprowadzenie tekstu programu; 

e zapamiętanie zbioru na dysku (klawisz F2). 


b. Utworzenie programu bez zapamiętywania go na dysku 
Wykaz czynności: 


e wybranie pola File głównego menu (klawisz Alt-F); 
e wybranie opcji New (klawisz N); 
e wprowadzenie tekstu programu. 


Wprowadzony program może być poddawany modyfikacjom, kompilacjom 
i wykonywaniu. Ponieważ jest przechowywany w pamięci operacyjnej, więc nie 
musi być zamiętany na dysku. 


Kompilowanie programów i modułów 


Kompilowanie programów i modułów może odbywać się w trybie Compile, 
Make i Build. Jeśli po wybraniu pola Compile (klawisz Alt-C), zostanie 
wybrana opcja Destination Disk (klawisz D), to produkt kompilacji zostanie 
umieszczony w pamięci zewnętrznej. Jeśli kompilacja dotyczy zbioru Na- 
zwa.PAS zawierającego program, to zostanie utworzony zbiór Nazwa.EXE, 
a jeśli dotyczy zbioru zawierającego moduł, to zostanie utworzony zbiór 
Nazwa.TPU. 


Kompilowaniu w trybie Compile podlega program albo moduł załadowany do 
okienka edycyjnego. W celu wykonania kompilacji w tym trybie, należy 
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nacisnąć klawisz Alt-F9 (albo kolejno klawisze F10,C,C). Kompilacja w trybie 
Compile jest możliwa tylko wówczas, gdy wszystkie moduły wymienione 
w wyszczególnieniu modułów są już skompilowane i znajdują się na dysku 
(albo w bibliotece TURBO.TPL). 


Wywołanie kompilatora w trybie Make i Build różni się od jego wywołania 
w trybie Compile tym, że rezultatem kompilacji jest zawsze program wykony- 
walny (umieszczony w pamięci operacyjnej albo na dysku, stosownie do stanu 
opcji Destination). 


Wywołanie kompilatora w trybie Make powoduje rozpoczęcie kompilacji od 
programu znajdującego się w zbiorze pierwotnym. Jeśli nazwa tego zbioru nie 
została określona (co można uczynić posługując się klawiszami Alt-C,P), to 
rozpoczyna się od programu znajdującego się w okienku edycyjnym. Jeśli 
program odwołuje się bezpośrednio albo pośrednio do modułów, które 
podlegały modyfikacji już po utworzeniu wykorzystujących je innych modu- 
łów, to kompilowane są również i te moduły. W każdym przypadku system 
ogranicza się jednak tylko do tych kompilacji, które są niezbędne. W szczegól- 
ności, nie kompiluje się ponownie modułu odwołującego się do innego modułu, 
w którym wprowadzano zmiany nie naruszające jego części publicznej. 


Wywołanie kompilatora w trybie Build różni się od jego wywołania w trybie 
Make tym, że są przeprowadzane wszystkie kompilacje, niezależnie od tego czy 
są niezbędne. 


Należy dodać, że nawet gdy program wykonywalny jest umieszczany w pamię- 
ci operacyjnej, to skompilowane moduły, zawarte w zbiorach z rozszerzeniem 
„TPU, są umieszczane w pamięci zewnętrznej. 
Przykłady. Kompilowanie programów i modułów 
a. Skompilowanie programu znajdującego się w okienku edycyjnym 

begin 

Write( Hello world') 

end. 
Wykaz czynności: 
e naciśnięcie klawisza Alt-F9. 
Jeśli kompilacja zakończy się sukcesem, to program można wykonać, nacis- 
kając w tym celu klawisz Alt-R. 


b. Skompilowanie programu znajdującego się w zbiorze o arbitralnie wybranej 
nazwie FIRST.PAS 
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Wykaz czynności: 
e określenie nazwy zbioru pierwotnego (klawisze Alt-C, P a następnie nazwa 


FIRST.PAS); 
e wykonanie kompilacji w trybie Make (klawisz F9). 


Jeśli kompilacja zakończy się sukcesem, to program można wykonać nacis- 
kając klawisz Alt-R. 


Usuwanie błędów i wykonywanie programów 


Rzadko się zdarza, aby kompilowany program był bezbłędny. Ponieważ 
kompilator wykrywa wszelkie odstępstwa od wymagan definicji języka, samą 
kompilację można traktować jako element uruchomienia programu. 


Jeśli podczas wykonywania kompilacji wykryto błąd, to kompilacja jest 
przerywana, a w pierwszym wierszu okienka edycyjnego pojawia się komuni- 
kat diagnostyczny. Jednocześnie kursor zostaje usytuowany w pobliżu miejsca 
wystąpienia błędu. Po poprawieniu błędu, można ponowić kompilację pro- 
gramu albo modułu. Ze względu na dużą szybkość kompilacji można zaakcep- 
tować decyzję implementacyjną wykrywania tylko jednego, a nie wszystkich 
błędów. 


Przykład. Program z błędem 
begin 
Write(Hello world') 
end. 
Skompilowanie przytoczonego programu powoduje wyprowadzenie komuni- 
katu 


Error 3: Unknown identifier 
(nieznany identyfikator). Oczywiście przyczyna błędu jest inna i polega na tym, 
że słowo Hello nie jest poprzedzone apostrofem. 


Po usunięciu wszystkich błędów wykrywanych przez kompilator, można 
spowodować wykonanie programu. W tym celu wystarczy wybrać w głównym 
menu pole Run (np. Alt-R). Jeśli przed wybraniem tego pola nie wykonano 
kompilacji, to zostanie domniemana kompilacja w trybie Make (jak po 


naciśnięciu klawisza F9). 


Przebieg wykonywania programu zależy od tego, czy wpada on w pętlę, czy też 
kończy się w sposób normalny lub po wystąpieniu błędu fatalnego. Jeśli wpada 
w pętlę, to może być przerwany za pomocą klawisza Ctrl-Break, ale tylko 
wówczas, gdy są spełnione dwa warunki: po pierwsze klawisz ten nie został 
programowo dezaktywowany, a po drugie program wykonuje operacje wejś- 
cia-wyjścia. W przeciwnym razie jest konieczne ponowne załadowanie systemu. 


17 — Turbo Pascal... 
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Po wykryciu błędu fatalnego na ekranie jest wyświetlany komunikat 
Runtime error nnn at SSSs:0000 


określający numer błędu (nnn) i adres wystąpienia błędu (ssss:0000). 


Przykład. Program zawierający błąd fatalny 
begin 
Write(2 / 0) 
end. 


Wykonanie programu zostanie przerwane z powodu dzielenia przez 0. Na 
ekranie pojawi się wówczas komunikat 


Runtime error 200 at 0000:001E 


a po naciśnięciu dowolnego klawisza klawiatury, w pierwszym wierszu okienka 
edycyjnego zostanie wyprowadzony komunikat 


Error 200: Division by zero 


(błąd nr 200: dzielenie przez zero). 


Nawigowanie wśród opcji menu 

Bezpośrednio po wywołaniu systemu Turbo Pascał i usunięciu z ekranu 
informacji o numerze wersji systemu, a także bezpośrednio po naciśnięciu 
klawisza F10, następuje uaktywnienie głównego menu, składającego się z pól: 
File, Edit, Run, Compile i Options. Wybranie dowolnego z nich (z wyjątkiem 
Edit i Run) powoduje uaktywnienie podmenu składającego się z opcji. 
Znaczenie poszczególnych pól i opcji jest szczegółowo opisane w okienkach 
pomocniczych wyświetlanych na ekranie po naciśnięciu klawisza F1. Dlatego 
podane dalej opisy będą ograniczone do minimum. 


Pole File 
Wybranie pola File powoduje pojawienie się na ekranie następujących opcji: 
Load 
Pick 
New 
Save 
Write to 
Directory 
Change dir 
OS shell 
Quit 
Wybranie opcji Load (klawisz L) umożliwia załadowanie zbioru w celu 
poddania go redagowaniu. Jeśli nazwa zbioru jest niejednoznaczna (zawiera 
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znaki * albo lub ?), to naciśnięcie klawisza Enter powoduje wyświetlenie 
zestawu nazw zbiorów. Wybór jednej z nazw odbywa się za pomocą klawiszy 
oznaczonych strzałkami i klawisza Enter. Jeśli nazwa jest jednoznaczna, to do 
okienka edycyjnego jest ładowana zawartość zbioru o podanej nazwie. 


Wybranie opcji Pick (klawisz P) umożliwia załadowanie do okienka edycyj- 
nego zawartości zbioru wymienionego na liście wyboru. Lista wyboru składa: 
się z co najwyżej 8 pozycji i zawiera nazwy tych zbiorów, które były ostatnio 
ładowane do okienka edycyjnego. Na liście wyboru znajduje się pozycja 
"--loadfile--". Wybranie jej ma taki sam skutek jak wybranie opcji Load. 


Wybranie opcji New (klawisz N) powoduje wyczyszczenie okienka edycyjnego 
i przyjęcie przez domniemanie, że zbiór załadowany do okienka ma nazwę 
NONAME.PAS. 

Wybranie opcji Save (klawisz S) powoduje zapamiętanie na dysku, zbioru 
znajdującego się w okienku edycyjnym. Jeśli zbiór ten ma nazwę NONA- 
ME.PAS, to system proponuje zmienić ją na inną. 

Wybranie opcji Write to (klawisz W) powoduje zapamiętanie na dysku zbioru 
znajdującego się w okienku edycyjnym, ale pod inną nazwą. Jeśli podana 
nazwa pokrywa się z nazwą zbioru już istniejącego, to system upewnia się, czy 
zbiór ten ma zostać usunięty. 

Wybranie opcji Directory (klawisz D) powoduje wyprowadzenie w okienku 


pomocniczym nazw zbiorów o podanej masce. System proponuje maskę *.x, 
ale maska ta może być zmieniona na dowolną inną. 


Wybranie opcji Change dir (klawisz C) powoduje ujawnienie nazwy bieżącego 
podkatalogu i umożliwia jej zmianę na inną. 

Wybranie opcji OS shell (klawisz D) powoduje tymczasowe wywołanie systemu 
DOS. Po zakończeniu operacji w systemie DOS można wrócić do systemu 
Turbo Pascal wykonując dyrektywę Exit. 


Wybranie opcji Quit (klawisz Q) powoduje powrót do systemu DOS. 


Pole Edit 
Wybranie pola Edit powoduje wywołanie edytora i uaktywnienie okienka 
edycyjnego. 


Pole Run 


Wybranie pola Run powoduje wykonanie uprzednio skompilowanego pro- 
gramu. Jeśli nie wykonano kompilacji, to jest ona wykonywana niejawnie 


w trybie Make. 
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Pole Compile 
Wybranie pola Compile powoduje pojawienie się na ekranie następujących 
opcji: 

Compile 

Make 

Build 

Destination 

Find error 

Primary file 

Get info 


Wybranie opcji Compile (klawisz C) powoduje wykonanie kompilacji w trybie 
Compile. 


Wybranie opcji Make (klawisz M) powoduje wykonanie kompilacji w trybie 
Make. 


Wybranie opcji Build (klawisz B) powoduje wykonanie kompilacji w trybie 
Build. 


Wybranie opcji Destination (klawisz D) powoduje przełączenie z kompilowa- 
nia do pamięci operacyjnej (Memory) na kompilowanie do pamięci dyskowej 
(Disk) i odwrotnie. 


Wybranie opcji Find error (klawisz F) powoduje zapytanie o adres błędu, 
w celu zlokalizowania instrukcji źródłowej zawierającej ten błąd (użycie 
omawianej opcji jest niezbędne jedynie wówczas, gdy program był wykonywa- 
ny poza systemem Turbo Pascal). 


Wybranie opcji Primary (klawisz P) umożliwia określenie nazwy zbioru 
pierwotnego. 


Wybranie opcji Get info (klawisz G) powoduje udostępnienie obszernych 
informacji o programie. 


Pole Options 
Wybranie pola Options powoduje pojawienie się na ekranie następujących 
opcji: 

Compiler 

Environment 

Directories 

Parameters 

Load Options 

Save Options 
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Opcja Compiler 


Wybranie opcji Compiler powoduje pojawienie się na ekranie następujących 
podoncji: 
Range checking 
Stack checking 
I/O checking 
Debug information 
Turbo pascal map file 
Force for calls 
Var-string checking 
Boolean evaluation 
Numeric processing 
Link buffer 
Conditional defines 
Memory size 


Wybranie podopcji Range checking (klawisz R) powoduje włączenie (On) albo 
wyłączenie (Off) kontroli indeksów tablic i zmiennych łańcuchowych, a także 
kontroli poprawności przypisań danych. 


Wybranie podopcji Stack checking (klawisz S) powoduje włączenie (On) albo 
wyłączenie (Off) kontroli przekroczenia pojemności stosu procesora. 


Wybranie podopcji I/O checking (klawisz I) powoduje włączenie (On) albo 
wyłączenie (Off) kontroli poprawności wykonywania operacji wejścia/wyjścia. 


Wybranie podopcji Debug information (klawisz D) powoduje włączenie (On) 
albo wyłączenie (Off) generowania informacji umożliwiającej lokalizowanie 
błędów wykonywania programu bezpośrednio w jego tekście źródłowym. 


Wybranie podopcji Turbo pascal map file (klawisz T) powoduje włączenie (On) 
albo wyłączenie (Off) generowania zbioru z rozszerzeniem .ITPM umoż- 
liwiającego uruchomienie programu wynikowego za pomocą takich pro- 
gramów jak Symdeb i Periscope. 


Wybranie podopcji Force far calls (klawisz F) powoduje włączenie (On) albo 
wyłączenie (Off) takiego sposobu kompilowania podprogramów, aby ich 
wywołania i powroty były traktowane jako dalekie. 


Wybranie podopcji Var-string checking (klawisz V) powoduje włączenie (Strict) 
albo wyłączenie (Relaxed) kontroli zgodności parametrów i argumentów 
łańcuchowych. 


Wybranie podopcji Boolean evaluation (klawisz B) powoduje włączenie 
(Complete) albo wyłączenie (ShortCircuit) kompilowania całych wyrażeń 
logicznych, niezależnie od tego, czy jest to konieczne do określenia ich wartości. 
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Wybranie podopcji Numeric processing (klawisz N) powoduje włączenie 
(Hardware) albo wyłączenie (Software) korzystania z koprocesora arytmetycz- 
nego i tym samym wykonywanie operacji na danych typu real sprzętowo albo 
programowo. 


Wybranie podopcji Link buffer (klawisz L) powoduje włączenie (Memory) albo 
wyłączenie (Disk) przechowywania wyników pośrednich konsolidacji w pamię- 
ci operacyjnej. 


Wybranie podopcji Conditional defines (klawisz C) umożliwia definiowanie 
(oddzielonych średnikami) symboli warunkowych preprocesora. 


Wybranie podopcji Memory sizes (klawisz M) umożliwia określenie rozmiaru 
stosu oraz minimalnego i maksymalnego rozmiaru sterty. 


Każda z wymienionych podopcji może być jawnie użyta jako dyrektywa. Jeśli 
podczas redagowania tekstu źródłowego zostanie naciśnięty klawisz Ctrl-F 7, to 
aktualne podopcje przetworzone na dyrektywy zostaną umieszczone na 
początku przygotowywanego tekstu. 


Opcja Environment 


Wybranie opcji Environment powoduje pojawienie się na ekranie następują- 
cych podopcji: 


Backup source files 
Edit auto save 
Config auto save 
Retain saved screen 
Tab size 

Zoom windows 
Screen size 


Wybranie podopcji Backup source files (klawisz B) powoduje włączenie (On) 
albo wyłączenie (Off) tworzenia zbiorów z rozszerzeniem .BAK, jako ochrony 
przed utratą poprzednich wersji zbiorów źródłowych. 


Wybranie podopcji Edit auto save (klawisz E) powoduje włączenie (On) albo 
wyłączenie (Off) automatycznego zapamiętywania tekstu znajdującego się w 
okienku edycyjnym przed wykonaniem programu (np. Alt-R) albo przed 
wywołaniem systemu DOS (np. Alt-F,O). 


Wybranie podopcji Config auto save (klawisz C) powoduje włączenie (On) albo 
wyłączenie (Off) automatycznego zapamiętania w zbiorze dyskowym, w chwili 
kończenia pracy pod nadzorem systemu Turbo Pascal (np. Alt-X), wszystkich 
ustawionych podopcji systemu (w tym podopcji Config auto save). 
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Wybranie podopcji Retain saved screen (klawisz R) powoduje włączenie (On) 
albo wyłączenie (Off) przechowywania w pamięci operacyjnej obrazu znaj- 
dującego się na ekranie wyjściowym. 


Wybranie podopcji Tab size (klawisz T) umożliwia wybranie skoku tabulacji. 


Wybranie podopcji Zoom windows (klawisz Z) powoduje włączenie (On) albo 
wyłączenie (Off) wyświetlania tylko jednego okienka: edycyjnego albo wyjścio- 
wego. Wyświetlenie drugiego okienka wymaga wówczas przełączeń między 
okienkami (klawisz F6). 


Wybranie podopcji Screen size (klawisz S) umożliwia określenie pionowego 
rozmiaru ekranu niestandardowego (43 wiersze dla karty EGA i 50 wierszy dla 
karty VGA). 


Opcja Directories 


Wybranie opcji Directories powoduje pojawienie się na ekranie następujących 
podopcji: 


Turbo directory 
Fxecutable directory 
Include directories 
Unit directories 
Object directories 
Pick file name 
Current pick file 


Wybranie podopcji Turbo directory (klawisz T) umożliwia określenie nazwy 
podkatalogu, w którym znajduje się zbiór konfiguracyjny (przez domniemanie 
TURBO.TP) i zbiór zawierający informacje pomocnicze (TURBO.HLP). 


Wybranie podopcji Executable directory (klawisz E) umożliwia określenie 
nazwy podkatalogu. w którym sa umieszczane zbiory z rozszerzeniem .EXE 
(przez domniemanie przyjmuje się podkatalog bieżący). 


Wybranie podopcji Include directories (klawisz I) umożliwia określenie nazw 
podkatalogów, w których znajdują się zbiory włączane do programów i modu- 
łów źródłowych za pomocą dyrektyw ($I nazwaj. Nazwy katalogów są 
oddzielane średnikami. Jeśli lista nazw jest pusta, to przez domniemanie 
przyjmuje się nazwę podkatalogu bieżącego. 


Wybranie podopcji Unit directories (klawisz U) umożliwia określenie nazw 
podkatalogów, w których są umieszczane zbiory z rozszerzeniem .TPU 
powstałe ze skompilowania modułów. Nazwy podkatalogów są oddzielane 
średnikami. Jeśli wykaz nazw jest pusty, to przyjmuje się nazwę podkatalogu 
bieżącego. 
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Wybranie podopcji Object directories (klawisz O) umożliwia określenie nazw 
podkatalogów, w których znajdują się zbiory z rozszerzeniem .OBJ (skom- 
pilowane podprogramy asemblerowe). Nazwy podkatalogów są oddzielone 
średnikami. Jeśli wykaz nazw jest pusty, to przyjmuje się nazwę podkatalogu 
biczącego. 


Wybranie podopcji Pick file name (klawisz P) umożliwia określenie nazwy 
zbioru, w którym jest zapamiętywana lista nazw udostępniana po wybraniu 
opcji Pick (np. AM-F, P). Jeśli nazwa zbioru nie jest określona, to przyjmuje się 
nazwę zawartą w podopcji Current pick file. 


Wybranie podopcji Current pick file nie jest możliwe. Jest ona wyświetlana 
tylko w celach informacyjnych. 


Opcja Parameters 


Wybranie opcji Parameters powoduje pojawienie się na ekranie okienka, 
umożliwiającego określenie oddzielonych spacjami parametrów programu. 
Dzięki omawianej opcji można w systemie Turbo Pascal badać zachowanie się 
programu wywoływanego następnie (z parametrami) z systemu operacyjnego 
DOS. 


Opcja Load Options 


Wybranej opcji Load Options umożliwia odtworzenie podopcji, obowiązują- 
cych w systemie Turbo Pascal w chwili wybrania takiej opcji Save Options. 
w której użyto identycznej nazwy jak w Load Options. Przez domniemanie 
przyjmuje się nazwę TURBO.TP. 


Opcja Save Options 


Wybranie opcji Save Options umożliwia zapamiętanie aktualnych podopcji 
w zbiorze o wybranej nazwie. 


Moduły Graph I Crt 


Podprogramy zawarte w modułach Graph i Crt umożliwiają rozpoznawanie 
środowiska graficznego (np. Graph), inicjowanie grafiki pikselowej i znakowej 
(np. InitGraph, TextMode), przełączanie między trybem graficznym 1 teks- 
towym (np. RestoreCrtMode), ustanawianie okienek graficznych i tekstowych 
(np. SetViewPort i Window), a ponadto wyprowadzanie tekstów (np. Write), 
wykreślanie tekstów (np. OQutText) i wykreślanie podstawowych obiektów 
graficznych (np. Circle). 


Jeśli argumenty podprogramu nie naruszają wymagań składniowych, ale są 
dobrane niewłaściwie, to wykonanie podprogramu nie wywołuje żadnych 
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skutków. Jeśli argumenty są dobrane właściwie, ale wykonanie podprogramu 
okaże się niepomyślne, to wykonywanie programu jest kontynuowane. Zbuda- 
nie przyczyny niepomyślnego wykonania operacji graficznej pozostawia się 
programującemu. Zadanie to ułatwia funkcja GraphResult, której działanie 
(przedstawione szczegółowo dalej) może być porównane do działania funkcji 
IOResult. 


Rezultatem funkcji GraphResult jest dana typu integer. Jeśli wykonanie 
podprogramu było pomyślne, to dana la ma wartość 0. W przeciwnym razie 
ma wartość ujemną, identyfikującą przyczynę niepowodzenia. Ponieważ dwu- 
krotne wywołanie funkcji GraphResult (bez wykonania między tymi wywoła- 
niami operacji graficznej) powoduje, że jej drugim rezultatem jest zawsze dana 
o wartości (0, zaleca się więc przypisanie pierwszego rezultatu zmiennej 
pomocniczej (analogicznie do typowego użycia funkcji TOResult). 


Tryb tekstowy 


Wykonanie każdego programu rozpoczyna się w trybie tekstowym. Znaki 
wyprowadzane na ekran moga być białe na czarnym tle, czarne na białym tle, 
migoczące i kolorowe. Wyprowadzanie znaków odbywa się za pośrednictwem 
plików skojarzonych z konsolą. 


Okienko tekstowe 


Po rozpoczęciu wykonywania programu domniemanym okienkiem tekstowym 
jest cały ekran. Lewy górny narożnik ekranu tekstowego ma współrzędne (1.1), 
a prawy dolny ma współrzędne (col,lin), gdzie coł jest liczbą kolumn, a lin jest 
liczbą wierszy ekranu. Na przykład dla karty CGA w trybie C40 są to 
współrzędne (40,25). Z okienkiem jest związany widoczny kursor, którego 
położenie może być zmieniane za pomocą podprogramu GotoXY. Zmiana 
okienka tekstowego może być dokonana za pomoca podprogramu Window. 
Argumentami tego podprogramu są współrzędne ekranowe. Najmniejsze 
okienko ma wymiary 1 x 1 znak. Wszystkie operacje tekstowe dotyczą bieżące- 
go okienka tekstowego, a współrzędne kursora tekstowego są zawsze liczone 
względem lewego górnego narożnika okienka. Okienko ma wszystkie właś- 
ciwości ekranu monitora. W szczególności zachodzi w nim przewijanie 
pionowe. 


Przykład. Przewijanie pionowe 
program Ścrolling; 
uses 
Crt; 

begin 
ClrScr; 
Window(1,1,5.3); 
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Writeln( Jan'); 
Writeln( Izabela') 
end. 


Program jest ilustracją przewijania pionowego. Na ekranie pojawia się wiersz 
zawierający napis Izabe i wiersz zawierający się napis la. Na skutek przewinię- 
cia, napis Jan znika z okienka tekstowego. 


IKolcry 


Jeśli użyta karta oraz monitor zapewniają wyprowadzanie kolorowe, to mogą 
być niezależnie określone atrybuty koloru znaku i koloru tła (np. czerwony 
znak na zielonym tle). Ponadto można spowodować migotanie znaku oraz 
zwiększyć jego jasność. Atrybuty migotania, koloru tła, jasności i koloru znaku 
są dla każdego wyprowadzanego znaku określane na podstawie pól bitowych 
zmiennej TextAttr. Pola migotania i jasności są 1-bitowe, a pola koloru tła 
i koloru znaku są 3-bitowe. Przypisywanie danych wymienionym polom może 
odbywać się bezpośrednio, poprzez operacje na zmiennej TextAttr, albo 
pośrednio, za pomocą procedur TextBackground i TextColor. Pierwsza z tych 
procedur umożliwia określenie koloru tła, a druga umożliwia określenie koloru 
znaku, jego jasności i migotania. Argumenty wymienionych procedur są jak 
zwykle wyrażane za pomocą symboli, takich jak np. Red (czerwony), Blink 
(migotanie) itp. 


Jeśli posłużono się kartą Hercules i monitorem monochromatycznym, to 
określanie atrybutów powinno odbywać się poprzez zmienną TextAttr. Przy- 
datna może się wówczas okazać informacja, że najbardziej znaczący bit określa 
migotanie, trzy następne dotyczą tła. kolejny bit określa jasność, a trzy 
najmniej znaczące dotyczą znaku. Poza migotaniem i jasnością (wyrażonymi za 
pomocą bitów 1), mają sens jedynie następujące zestawy atrybutów 


Pierwszy plan Tło Skutek 


7 0 Białe znaki na czarnym tle 

l 0 Białe podkreślone znaki na czarnym tle 

0 7 Czarne znaki na białym tle 

0 0 Czarne znaki na czarnym tle (oczywiście niewidoczne) 


Przykład. Wyprowadzanie znaków w kolorach 
program TextColors; 
uses 
Crt; 
begin 
ClrScr; 
TextColor(Req); 
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TextBackground(Green); 
Write( Kajusia') 
end. 
Na monitorze kolorowym sterowanym przez odpowiednią kartę graficzną (np. 
EGA albo CGA) pojawia się czerwony napis Kajusia na zielonym tle. 


Tryb graficzny 


Przełączanie systemu do trybu graficznego wymaga wykonania podprogramu 
InitGraph (jeśli posłużono się modułem Graph) albo wykonania podprogramu 
GraphMode, GraphColorMode albo HiRes (jeśli posłużono się modułem 
Graph3, a w systemie jest zainstalowana karta CGA albo karta stanowiaca jej 
rozszerzenie, np. EGA). Dalsze rozważania zostaną ograniczone do posłużenia 
się modułem Grapl:. 


Przykład. Ustanowienie trybu graficznego 
program Initialize; 
uses 
Crt,Graph; 
var 
Driver,Mode : integer; 
begin 
Driver : = Detect; 
InitGraph(Driver,Mode, '); 
PutPixel(0,0,1); 
repeat until KeyPressed, 
CloseGraph 
end. 


Wykonanie programu powoduje automatyczne rozpoznanie środowiska grafi- 
cznego, przełączenie systemu do trybu graficznego i wykreślenie na ekranie 
jednego piksela. 


Okienko graficzne 


Po ustanowieniu trybu graficznego domniemanym okienkiem graficznym jest 
cały ekran. Lewy górny narożnik ekranu graficznego ma współrzędne (0,0), 
a prawy dolny ma współrzędne (GetMaxX, GetMaxY). Zmiana okienka 
graficznego może być dokonana za pomocą podprogramu SetViewPort. Jego 
argumentami są współrzędne okienka oraz wyrażenie logiczne, określające, czy 
wykresy wykraczające poza okienko mają być obcinane czy nie. Wszystkie 
operacje graficzne dotyczą bieżącego okienka graficznego, a współrzędne 
kursora graficznego są zawsze liczone względem lewego górnego narożnika 
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okienka. Kursor graficzny jest niewidoczny, ale jego bieżące współrzędne mogą 
być określone za pomocą procedur GetX i GetY. Współrzędne te są wartoś- 
ciami danych typu integer i mogą być zarówno dodatnie, jak i ujemne. Jeśli 
współrzędna X nie należy do przedziału 0..GetX lub współrzędna Y nie należy 
do przedziału O0..GetY, to kursor znajduje się poza okienkiem graficznym. 


Przykład. Obcinanie na granicach okienka 

program Clipping; 

uses 
Crt,Graph; 

var 
Driver,Mode : integer; 

begin 
Driver := HercMono; 
Mode := HercMonoHi; 
InitGraph(Driver,Mode,"'); 
SetViewPort(1,l,GetMaxX,GetMaxY,ClipOn); 
PutPixel(—1,— 1,1); 
repeat until KeyPressed; 
CloseGraph 

end. 


Ponieważ procedurę SetViewPort wywołano z argumentem ClipOn (obcinaj), 
wykonanie procedury PutPixel nie wywołuje żadnych skutków. Gdyby ar- 
gument ClipOn zastąpiono argumentem ClipOff (nie obcinaj), to w pobliżu 
lewego górnego narożnika okienka graficznego (ale poza okienkiem) zostałby 
wykreślony jeden piksel. 


Wykreślanie tekstów 


Teksty wyprowadzane na ekran graficzny są na nim wykreślane. Teksty mogą 
być dwóch rodzajów: bitowe i kreskowe. Każdy znak tekstu bilowego jest 
prostokątem o wymiarze podstawowym 8x8 bitów. Znak taki po powięk- 
szeniu nie wygląda zbyt dobrze. Znacznie lepszy efekt wizualny daje powięk- 
szony znak kreskowy. Jest on tworzony w sposób wektorowy i czytelność 
znaku nie zależy od jego rozmiaru. Przewidziano 4 kroje znaków kreskowych: 
indeksowy, potrójny, bezszeryfowy i gotycki. Znaki tych krojów mogą być nie 
tylko powiększane, lecz także rozciągane w poziomie i w pionie. Teksty złożone 
ze znaków dowolnego kroju mogą być wyprowadzane w poziomie (od lewej do 
prawej) albo w pionie (od dołu do góry). Alfabety krojów obejmują znaki 
podstawowego kodu ASCII, a alfabet kroju bitowego obejmuje znaki roz- 
szerzonego kroju ASCII. Kroje kreskowe są przechowywane na dysku i łado- 
wane dynamicznie do pamięci operacyjnej. W każdej chwili w pamięci może 
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znajdować się co najwyżej jeden automatycznie załadowany krój kreskowy. 
Zapewniono środki umożliwiające ładowanie krojów na żądanie (procedura 
RegisterBGIFont) oraz instalowanie ich w programie na stałe. 


Przykład. Wykreślanie tekstu 

program 7exts; 

uses 
Crt,Graph; 

var 
Driver,Mode : integer; 

begin 
Driver := HercMono; 
Mode := HercMonoHi; 
InitGraph(Driver,Mode, '); 
Set TextStyle(SmallFont,HorizDir,10); 
Out Text( Jan '); 
Set TextStyle(GothicFont,HorizDir,8); 
Qut Text( Ewa '): 
Set TextStyle( TriplexFont,HorizDir,8), 
OutText( Iza '); 
Delay(2000); 
CloseGraph 

end. 


Wykonanie programu powoduje wykreślenie trzech tekstów: pierwszy jest 
wykreślany czcionką o kroju indeksowym (SmallFont), a następne odpowied- 
nio gotykiem (GothicFont) i krojem potrójnym (TriplexFont). Znaki tekstu Jan 
są powiększone 10-krotnie, a pozostałe znaki 8-krotnie. Teksty są wyprowa- 
dzane w poziomie (HorizDir). 


Wykreślanie obiektów graficznych 


Biblioteka podprogramów graficznych zawiera podprogramy do wykreślania 
pikseli (np. PutPixel), odcinków (np. Line), łuków (np. Arc), okręgów (np. 
Circle), elips (np. Ellipse), a ponadto łamanych, wielokątów, słupków itp. Linie 
mogą być wykreślane jako grube albo cienkie, ciągłe albo przerywane, 
a obszary mogą być wypełniane wzorami standardowymi i projektowanymi. 


Przykład. Wykreślenie wypełnionego okręgu 
program Objects; 
uses 
Crt,Graph; 
var 
Driver,Mode : integer; 
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begin 
Driver := HercMono; 
Mode := HercMonoHi; 
InitGraph(Driver, Mode, '); 
Circle(GetMaxX div 2,GetMaxY div 2,300); 
FloodFill(GetMaxX shr 1,GetMaxY shr 1,GetMaxColor); 
repeat until KeyPressed; 
CloseGraph 
end. 
Wykonanie programu powoduje wykreślenie okręgu o promieniu 300 pikseli 
i środku w pobliżu środka ekranu, a następnie wypełnienie go wzorem 
domniemanym. Wykreślony obiekt jest obcięty na granicach okienka graficz- 
nego. 


Kolory 


Wykreślanie obiektów graficznych może być czarno-białe albo kolorowe. 
Wykreślanie czarno-białe dotyczy zazwyczaj kart graficznych nie uwzględ- 
niających koloru, jak np. karta Hercules. Oczywiście w takim przypadku kolor 
„biały” zależy od użytego luminoforu i może być w istocie np. zielony albo 
bursztynowy. 


Jeśli jest możliwe wyświetlanie kolorowe (np. karta EGA albo CGA), to 
podczas instalowania sterownika graficznego można określić tryb jego pracy, 
a tym samym dostępną paletę kolorów. 


Kolory palety (nie istnieje ona np. dla karty Hercules), są ponumerowane od 
0 do GetMaxColor. Kolory te mogą być ustalone (np. karta CGA) albo 
dowolnie zmieniane (np. karta EGA). Jeśli kolory mogą być zmieniane, to 
przypisanie pozycji palety obranego koloru odbywa się za pomocą podpro- 
gramu SetPalette. Wybór numeru koloru do wykreślania obiektów zapewnia 
podprogram SetColor. Po wykonaniu podprogramu SetColor(n), wszystkie 
obiekty są wykreślane w kolorze związanym (sprzętowo albo programowo) 
z pozycją nr n palety kolorów. Programowe przypisanie tej pozycji innego 
koloru powoduje natychmiastową zmianę koloru rozpatrywanych obiektów. 


Przykład. Wyświetlanie w kolorach 
program GraphColors; 
uses 
Crt,Graph; 
var 
Driver,Mode : integer; 
Palette : PaletteType; 
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i: shortint; 


Drop : char; 
begin 
Driver:= EG4; 


Mode := EgaLo; 
InitGraph(Driver,Mode, '); 
if GraphResult <> grOK then Halt(13); 
SetPalette(1,Red); 
SetColor(1); 
Line(0,0,GetMaxX,0); (Red line) 
repeat until KeyPressed; 
Drop := ReadKey; 
SetPalette(1,Green); (Green line) 
OQutTextXY(0,0,Press a key'); (Green text) 
repeat until KeyPressed; 
Drop : = ReadKey; 
GetPalette(Palette); 
RestoreCrtMode; 
Writeln( Palette '); 
with Palette do 
for i:=0 to Size —1 do 
Wiiteln( No. "i :2, =>'Colors[i]; 
end. 


Program jest ilustracją zasady posługiwania się paletą kolorów karty EGA. Po 
ustanowieniu trybu graficznego i związaniu z pozycją nr 1 palety koloru 
czerwonego (Red) jest wykreślany poziomy odcinek linii prostej. Po naciśnięciu 
dowolnego klawisza klawiatury następuje zmiana koloru związanego z pozycją 
nr 1 palety na zielony (Green). Powoduje to, że zarówno już wykreślony 
odcinek, jak i tekst Press a key jest wyświetlany w tym kolorze. Na zakończenie 
wykonania programu następuje przełączenie systemu do trybu tekstowego 
1 wyprowadzenie tablicy określającej identyfikatory kolorów przyporządkowa- 
ne poszczególnym pozycjom palety. Bliższą analizę programu powinno ułatwić 
sięgnięcie do opisów podprogramów bibliotecznych. 


Podprogramy graficzne 


Arc (Graph) 


Arc — wykreślenie łuku okręgu 
(por. Circle, Ellipse, GetArcCoords, 
GetAspectRatio, PieSlice) 
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procedure Arc(x,y : integer; 
StAngle,EndAngle : word; 
Radius : word) 


Wykreślenie łuku okręgu o środku w punkcie (x,y) i promieniu Radius, 
począwszy od kąta StAngle, a skończywszy na kącie EndAngle. 


Uwagi. System musi być w trybie graficznym. Kąty StAngle i EndAngle są 
wyrażone w stopniach. Wykreślanie odbywa się w kierunku przeciwnym do 
ruchu wskazówek zegara. Dla StAngle = 0 i EndAngle = 360 jest wykreślany 
pełny okrąg. 
Bar (Graph) 


Bar — wykreślenie słupka 


(por. Bar3D, SetFillPattern, SetFillStyle, 
SetLineStyle). 


procedure Bar(xl,yl : integer; 
x2,y2 : integer) 


Wykreślenie słupka (stanowiącego zapewne element wykresu słupkowego) jako 
wypełnionego prostokąta, którego przeciwległe wierzchołki mają współrzędne 
(xl,yl) 1 (x2,y2). 


Uwagi. System musi być w trybie graficznym. Wzór i kolor wypełnienia 


prostokąta może być określony za pomocą procedury SetFillStyle albo 
SetFillPattern. 


Bar3D (Graph) 


Bar3D — wykreślenie słupka trójwymiarowego 
(por. Bar, GraphResult, SetFillPattern, 
SetFillStyle, SetLineStyle) 


procedure Bar3D(xl,yl : integer; 
x2,y2 : integer; 
Depth : word; 
TopFlag : boolean) 


Wykreślenie trójwymiarowego słupka (stanowiącego zapewne element wykresu 
słupkowego) jako prostopadłościanu, którego przednia Ściana jest wypeł- 
nionym prostokątem. Określenie przeciwległych wierzchołków prostokąta jako 
punktów o współrzędnych (x1,yl) i (x2,y2). Wyrażenie głębi prostopadłościanu 
za pomocą Depth i określenie za pomocą TopFlag czy ma być wykreślona jego 
górna powierzchnia. 


Uwagi. System musi być w trybie graficznym. Wzór i kolor wypełnienia 
prostokąta może być określony za pomocą procedury SetFillStyle albo 
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SetFillPattern. Zaniechanie wykreślania górnej powierzchni umożliwia wykreś- 
lenie słupka składającego się z kilku klocków. Niepomyślne wykonanie 
procedury Bar3D powoduje, że rezultatem funkcji GraphResult jest dana 
o wartości 


grNoScanMem — brak pamięci do wypełnienia obszaru metodą scan 
(-6) 
Wartości trzeciego argumentu procedury mogą być wyrażone za pomocą 
następujących symboli 


TopOff — bez wykreślania górnej powierzchni słupka 4 false) 
TopOn — z wykreślaniem górnej powierzchni słupka (true) 
Circle (Graph) 


Circle — wykreślenie okręgu 
(por. Arc, Ellipse, GetArcCoords, 
GetAspectRatio, PieŚlice) 


procedure Circle(x,y : integer; 
Radius : word) 


Wykreślenie okręgu o środku w punkcie (x,y) i promieniu Radius. 
Uwagi. System musi być w trybie graficznym. 


ClearDevice (Graph) 


ClearViewPort — wyczyszczenie okienka graficznego 
(por. ClearViewPort, CloseGraph, 
InitGraph, RestoreCrtMode, SetGraph Mode) 


procedure ClearDevice 


Wyczyszczenie ekranu graficznego i usytuowanie kursora graficznego w lewym 
górnym narożniku bieżącego okienka graficznego. 


Uwagi. System musi być w trybie graficznym. 
ClearViewPort (Graph) 


ClearViewPort — wyczyszczenie okienka graficznego 
(por. GetViewSettings, SetViewPort) 


procedure Clear ViewPort 


Wyczyszczenie bieżącego okienka graficznego, a następnie wypełnienie go 
kolorem przypisanym pierwszej pozycji palety. 


18 — Turbo Pascal... 
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Uwagi. System musi być w trybie graficznym. Niepomyślne wykonanie 
procedury ClearViewPort powoduje, że rezultatem funkcji GraphResult jest 
dana o wartości 


grNoScanMem — brak pamięci do wypełnienia obszaru metodą scan 
1-6) 


CloseGraphMode (Graph) 
CloseGraphMode — przywrócenie trybu tekstowego 
(por. CloseGraph, DetectGraph, InitGraph, 
RegisterBGIDriver, RegisterBGIFont, 
RestoreCrtMode, SetGraphMode) 


procedure CloseGraph 
Przywrócenie trybu tekstowego, zwolnienie pamięci przydzielonej automatycz- 
nie programowi sterownika graficznego oraz obranemu krojowi pisma. 


Uwagi. System musi być w trybie graficznym. Pamięć przydzielona za pomocą 
procedur RegisterBGIDriver i Registe-BGIFont nie podlega zwolnieniu. 


CirEol (Crt) 
CilrEol — wyczyszczenie końca wiersza 


(por. ClrŚcr, Window) 
procedure ClrEol 


Zastąpienie spacjami tych znaków wiersza, które występują między pozycją 
kursora a końcem wiersza. 


Uwagi. System musi być w trybie znakowym. Jeśli kolorem tła nie jest czerń, to 
spacje są wyświetlane w kolorze określonym za pomocą procedury TextBack- 
ground. Zastępowanie znaków spacjami kończy się w chwili osiągnięcia 
prawego obrzeża bieżącego okienka tekstowego. Pozycja kursora tekstowego 
nie ulega zmianie. 


CirSecr (Crt) 


ClrScr — wyczyszczenie okienka tekstowego 
(por. ClrEol, Window) 


procedure ClrŚcr 


Wyczyszczenie bieżącego okienka tekstowego i usytuowanie kursora znakowe- 
go w lewym górnym narożniku tego okienka. 


Uwagi. Jeśli kolorem tła nie jest czerń, to okienko zostanie wypełnione 
spacjami w kolorze określonym za pomocą procedury TextBackground. 
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DelLine (Crt) 


DelLine — usunięcie wiersza 
(por. InsLine, Window) 


procedure DelLine 


Usunięcie z okienka tekstawego wiersza wyróżnionego przez kursor. Przesu- 
nięcie wierszy położonych niżej o jeden wiersz do góry. Wstawienie na dole 
okienka jednego wiersza pustego. 


Uwagi. Jeśli kolorem tła nie jest czerń, to wiersz pusty zostanie wypełniony 
spacjami w kolorze określonym przez procedurę TextBackground. 


DetectGraph (Graph) 


DetectGraph — rozpoznanie karty graficznej 
(por. GraphResult, InitGraph) 


procedure DetectGraph (var GraphDriver : integer; 
var Graph Mode : integer) 


Rozpoznanie karty graficznej, a następnie przypisanie zmiennej GraphDriver 
danej o wartości równej numerowi karty, a zmiennej GraphMode danej 
o wartości równej numerowi domniemanego trybu graficznego. 


Uwagi. Dane przypisane GraphDriver i GraphMode mogą być użyte w proce- 
durze InitGraph do ustanowienia trybu graficznego. W istocie, wywołanie tej 
procedury z pierwszym argumentem Detect (0) powoduje niejawne wywołanie 
procedury DetectGraph. Numery kart i trybów mogą być wyrażone za pomocą 
następujących symboli 


Symbol karty 


Detect — automatyczne rozpoznanie karty graficznej £0) 
CGA — karta CGA 41) 

MCGA — karta MCGA 42) 

EGA — karta EGA f3) 

EGA64 — karta EGA64 $£4) 


EGAMono — karta EGAMono (5) 
IBM8514 — karta IBM 8514 (6) 
HercMono — karta Hercules £7) 


ATT400 — karta ATT400 £8) 

VGA — karta VGA $9) 

PC3270 _ — karta PC3270 £10) 
Symbol trybu 

CGACO — 320x200, paleta O £0) 


CGACI — 320x200, paleta I (1) 
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CGAC2 — 320x200, paleta 2 £2) 

CGAC3 — 320x200, paleta 3 £3) 

CGAHi — 640x200, I strona (4) 

MCGACO0  — 320x200, paleta 0 £0; 

MCGACI  — 320x200, paleta I (1) 

MCGAC2  — 320x200, paleta 2 (2) 

MCGAC3  — 320x200, paleta 3 (3) 

MCGAMed — 640» 200, 1 strona /4) 

MCGAHi '— 640x480, I strona £5) 

EGALo — 640x200, 16 kolorów, 4 strony 40; 
EGAHNi — 640x350, 16 kolorów, 2 strony 41) 
EGA64Lo — 640x200, 16 kolorów, I strona 40) 
EGA6G4Hi — 640x350, 4 kolory, I strona 11) 


EGAMonoHi — 640 x 350, 
64K na karcie, 1 strona 43) 
256K na karcie, 2 strony (3) 
HercMonoHi — 120 x 348, 2 strony 40) 


ATT400C0  — 320x200, paleta O f0] 
ATI400C1I  — 320x200, paleta 1 f1) 
ATT400C2  — 320x200, paleta 2 +2) 
ATT400C3  — 320x200, paleta 3 3) 
ATTA00Med — 640x200, I strona /4) 
ATI400Hi  — 640x400, I strona (5) 
VGALo — 640x200, 16 kolorów, 4 strony 40) 
VGAMed — 640x350, 16 kolorów, 2 strony f1) 
VGAHi — 640x480, 16 kolorów, I strona £2) 
PC3270Hi  — 720x350, 1 strona 0) 


IBM8514Lo — 640x480, 256 kolorów 
IBM8514Hi — 1024x 768, 256 kolorów 


Niepomyślne wykonanie procedury DetectGraph powoduje, że rezultatem 
funkcji GraphResult jest dana o wartości 


grNotDetected — brak karty graficznej 4—2) 
DrawPoly (Graph) 


DrawPoly — wykreślenie linii łamanej 
(por. FillPoly, GetLineSettings, 
GraphResult, SetColor, SetLineStyle) 


procedure DrawPoly(NumPoints : word; 
var PolyPoints) 


Wykreślenie linii łamanej składającej się z NumPoints punktów, których 
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współrzędne (x,y) następują kolejno po sobie w obszarze pamięci zlokalizowa- 
nym przez PolyPoints. 


Uwagi. System musi być w trybie graficznym. Każda para współrzędnych jest 
określona przez dwie dane typu integer. Wykreślenie wielokąta wymaga 
podania ostatniej pary współrzędnych identycznej z pierwszą. 


Ellipse (Graph) 
Ellipse — wykreślenie elipsy 
(por. Arc, Circle, GetArcCoords, 
GetAspectRatio, PieSlice) 
procedure Ellipse(x,y : integer; 
StAngle,EndAngle : word; 
xRadius,yRadius : word) 


Wykreślenie łuku elipsy o środku w punkcie (xy) i półosiach xRadius 
I yRadius, począwszy od kata StAngle, a skończywszy na kącie EndAngle. 


Uwagi. System musi być w trybie graficznym. Kąty StAngle i EndAngle są 
wyrażone w stopniach. Wykreślanie odbywa się w kierunku przeciwnym do 
ruchu wskazówek zegara. Dla StAngle = 0 i EndAngle = 360 jest wykreślana 
pełna elipsa. 


FillPoly (Graph) 


FillPoly — wypełnienie wielokąta 
(por. DrawPoly, GetFillSettings, 
GetLineSettings, GraphResult, 
SetFillPattern, SetFillStyle, 
SetLineStyle) 


procedure FillPoly(NumPoints : word; 
var PolyPoints) 


Wypełnienie zadanym wzorem, wielokąta o NumPoints wierzchołkach, któ- 
rych współrzędne znajdują się w obszarze pamięci zlokalizowanym przez 
PolyPoints. 


Uwagi. System musi być w trybie graficznym. Każda para współrzędnych jest 
określona przez dwie dane typu integer. Wzór i kolor wypełnienia prostokąta 
może być określony za pomocą procedury SetFillStyle albo SetFillPattern. 
Niepomyślne wykonanie procedury FiliPoly powoduje, że rezultatem funkcji 
GraphResult jest dana o wartości 


grNoScanMem — brak pamięci do wypełnienia obszaru metodą scan 


(-6 
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FloodFill (Graph) 


FloodFill — wypełnienie obszaru zadanym wzorem 
(por. FillPoly, SetFillPattern, 
SetFillStyle) 


procedure FloodFill(x,y : integer; 
Border : word) 


Wypełnienie zadanym wzorem wnętrza obszaru obejmującego punkt o współ- 
rzędnych (x,y), ograniczonego linią, której numer jest określony przez Border. 


Uwagi. System musi być w trybie graficznym. Jeśli punkt o współrzędnych (x,y) 
znajduje się poza obszarem, to wypełnieniu podlega zewnętrze obszaru 
ograniczone obrzeżem okienka graficznego. Wykonanie procedury kończy się 
przedwcześnie po wprowadzeniu dwóch linii pustych. Wzór i kolor wypeł- 
nienia obszaru może być określony za pomocą procedury SetFillStyle albo 
SetFillPattern. Niepomyślne wykonanie procedury FloodFill powoduje, że 
rezultatem funkcji GraphResult jest dana o wartości 


grNoFloodMem — brak pamięci do wypełnienia obszaru metodą 
flood £—7) 
GetArcCoords (Graph) 


GetArcCoords — określenie współrzędnych łuku 
(por. Arc, Ellipse, PieŚlice) 


procedure GetArcCoords(var ArcCoords : ArcCoordsType) 


Przypisanie zmiennej ArcCoords danej rekordowej typu ArcCoordsType okreś- 
lającej parametry łuku okręgu wykreślonego za pomocą procedury Arc. 


Uwagi. System musi być w trybie graficznym. Typ ArcCoordsType jest 
zdefiniowany następująco 
type 
ArcCoordsType = record 
X,y : integer; 
xStart,yStart : integer; 
xEnd,yEnd : integer 
end; 


Pola x i y określają współrzędne środka okręgu, pola xStart 1 yStart określają 
współrzędne początku łuku, a pola xEnd i yEnd — współrzędne końca łuky. 


GetAspectRatio (Graph) 


GetAspectRatio — wyznaczenie aspektu ekranu 
(por. Arc, Circle, GetMaxX, 
GetMaxY, PieŚlice) 
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procedure GetAspectRatio(var xAsp,yAsp : word) 


Przypisanie zmiennym x4Asp i yAsp danych typu word, na podstawie których 
można określić aspekt ekranu. 


Uwagi. System musi być w trybie graficznym. Posłużenie się aspektem 
wyrażonym jako xAsp/yAsp umożliwia wykreślanie prostokątów wyglądają- 
cych jak kwadraty i elips wygladających jak okręgi. 


GetBkColor (Graph) 


GetBkColor — określenie koloru tła 
(por. GetColor, GetPalette, InitGraph, 
SetAllPalette, SetBkColor, 
»r«:  . SetPalette) 


function GerbkColor : wu. 


Utworzenie danej typu word, o wartości równej numerowi tej pozycji palety, 
która określa kolor tła. 


Uwagi. System musi być w trybie graficznym. Jeśli rezultatem funkcji jest dana 
o wartości n, to kolor tła jest określony przez n-tą pozycję palety. W przypadku 
karty Hercules kolor tła może być tylko czarny, a rezultatem funkcji 
GetBkColor jest dana o wartości 0. 


GetColor (Graph) 


GetColor — udostępnienie numeru koloru 
(por. GetBkColor, GetPalette, InitGrapkh, 
SetAllPalette, SetColor, SetPalette) 


function GetColor : word 
Utworzenie danej typu word o wartości równej numerowi koloru używanego 
do wykreślania linii. 


Uwagi. System musi być w trybie graficznym. Jeśli rezultatem funkcji GetColor 
jest dana o wartości n, to bieżący kolor jest określony przez n-tą pozycję palety. 
W przypadku karty Hercules, rezultat o wartości O oznacza kolor czarny, 
a rezultat o wartości 1 oznacza kolor biały. 


GetFillPattern (Graph) 


GetFillPattern — ujawnienie wzoru wypełniania obszarów 
(por. SetFillPattern, SetFillStyle) 
procedure GetFillPattern(var Pattern : FillPatternType) 


Przypisanie zmiennej Pattern danej tablicowej określającej zaprojektowany 
przez użytkownika wzór wypełniania obszarów. 
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Uwagi. System musi być w trybie graficznym. Typ FillPatternType jest 
zdefiniowany następująco 


type 
FillPatternType = array [1.8] of byte; 


Jeśli przed wywołaniem procedury GetFillPattern nie wywołano pro- 
cedury SetFillPattern, to poszczególnym elementom Pattern zostaną 
przypisane dane o wartości $ff. 


GetFiliSettings (Graph) 


GetFillSetiings — ujawnienie wzoru wypełniania obszarów 
(por. FillPoly, SetFillPattern, 
SetFillStyle) 


procedure GetFillSettings(var Filllnfo : FillSettingsType) 


Przypisanie zmiennej Filllnfo danej rekordowej typu FillSettingsType. okreś- 
lającej wzór do wypełniania obszarów oraz numer koloru do wykreślenia linii. 


Uwagi. System musi być w trybie graficznym. Typ FillSettingsType jest 
zdefiniowany następująco 
type 
FillSettingsType = record 
Pattern : word; 
Color : word 
end; 


Pole Pattern podaje numer wzoru wybranego za pomocą procedury SetFill- 
Style (0..11) albo określonego za pomocą procedury SetFillPattern (12), a pole 
Color podaje numer koloru, który będzie użyty do wypełniania obszarów. 
Numery wzorów wypełniających mogą być wyrażone za pomocą następują- 
cych symboli: 


EmptyFill — wypełnienie kolorem tła £0) 

SolidFill — wypełnienie ciągłe (1) 

LineFill — wypełnienie pogrubionymi liniami poziomymi f2) 
LtSlashFill _— wypełnienie liniami pochyłymi (3) 

SlashFill — wypełnienie pogrubionymi liniami pochyłymi (4) 
BkSlashFill  _— wypełnienie pogrubionymi liniami ukośnymi 45) 
LtSkSlashFill — wypełnienie liniami ukośnymi 4/6) 

HatchFill — wypełnienie siatką pionową $£7) 

xHatchFill _— wypełnienie siatką ukośną 48) 

InterleaveFill — wypełnienie liniami splecionymi 49) 


WideDotFill — wypełnienie kropkami 410) 
CloseDotFill — wypełnienie zagęszczonymi kropkami (11) 
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GetGraphMode (Graph) 


GetGraphMode — ujawnienie bieżącego trybu graficznego 
(por. ClearDevice, DetectGraph, 
InitGraph, RestoreCrtMode, 
SetGraphM ode) 


function GetGraphMode : integer 


Utworzenie danej typu integer, o wartości równej numerowi bieżącego trybu 
graficznego. 


Uwagi. System musi być w trybie graficznym. Rezultatem jest dana o wartości 
Z przedziału 0..5, określająca numer trybu ustanowionego za pomocą procedu- 
ry InitGraph albo SetGraphMode. Numery mogą być wyrażone za pomocą 
następujących symboli: 


CGACO — 320x200, paleta O £0) 
CGACI — 320x200, paleta 1 4/1; 
CGAC2 — 320x200, paleta 2 £2) 
CGAC3 — 320x200, paleta 3 £3) 
CGAHi — 640x200, I strona (4) 
MCGACO0O — 320x200, paleta 0 £0) 
MCGACI — 320x200, paleta 1 (1) 
MCGAC2 '— 320x200, paleta 2 £2) 
MCGAC3 '— 320x200, paleta 3 f3) 
MCGAMed — 640x200, 1 strona £4) 
MCGAHi — 640x480, I strona |5) 
EGALo — 640x200, 16 kolorów, 4 strony 40) 
EGAHi — 640x350, 16 kolorów, 2 strony 1) 
EGA64Lo — 640x200, 16 kolorów, 1 strona 0) 
EGA64Hi — 640x350, 4 kolory, 1 strona £1) 


EGAMonoHi — 640 x 350, 

64K na karcie, | strona ;3) 

256K na karcie, 2 strony (3) 
HercMonoHi — 720x348, 2 strony (0) 
ATT400C0 — 320x200, paleta O £0) 
ATT400C1 — 320x200, paleta 1 41) 
ATT400C2 — 320x200, paleta 2 £2) 
ATT400C3 — 320x200, paleta 3 (3) 
ATT400Med — 640x200, 1 strona (4) 


ATT400Hi — 640x400, 1 strona (5) 
VGALo — 640x200, 16 kolorów, 4 strony (0) 
VGAMed — 640x350, 16 kolorów, 2 strony (1) 


VGAHi — 640x480, 16 kolorów. 1 strona 42) 
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PC3270Hi — 720x350, 1 strona 
I1BM8514Lo — 640x480, 256 kolorów 
IBM8514Hi — 1024x 768, 256 kolorów 


Getlmage (Graph) 


Getlmage — zapamiętanie obrazu 
(por. ImageSize, Putlmage) 
procedure GetImage (xl,yl : integer; 
x2,y2 : integer; 
var BitMap) 


Wyodrębnienie — w obrębie bieżącego okienka graficznego — prostokątnego 
obszaru, którego przeciwległe wierzchołki mają współrzędne (x1,yl) i (x2,y2), 
a następnie zapamiętanie obrazu zawartego w tym prostokącie w obszarze 
zlokalizowanym przez BitMap. 


Uwagi. System musi być w trybie graficznym. Zaleca się, aby rozmiar obszaru 
był określony za pomocą procedury ImageSize. 


GetLineSettings (Graph) 


GetLineSettings — ujawnienie parametrów linii 
(por. SetLineStyle) 


procedure GetLineSettings (var Linelnfo : LineSettings Type) 


Przypisanie zmiennej Linelnfo danej rekordowej typu LineSettingsType, okreś- 
lającej rodzaj, wzór i grubość linii. 
Uwagi. System musi być w trybie graficznym. Typ LineSettingsType jest 
zdefiniowany następująco 
type 
LineSettingsType = record 

LineStyle : word; 

Pattern : word; 

Thickness : word 

end; 


Pole LineStyle określa numer rodzaju linii. Jeśli numerem tym jest UserBitLn, 
to pole Pattern określa wzór linii. Pole Thickeness określa grubość linii. 
Wartości danych przypisanych polu LineStyle mogą być wyrażone za pomocą 
następujących symboli 


SolidLn  — linia ciągła £0) 
DottedLn — linia kropkowana (1) 
CenterLn — linia centrowana (2) 
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DashedLn — linia przerywana (3) 
UserBitLn — linia zdefiniowana 4/4) 


Wartości danych przypisanych polu Thickness mogą być wyrażone za pomocą 
następujących symboli 


NormW idth — linia cienka f1) 
ThickWidth -—- linia pogrubiona (3) 


Polu Pattern może być przypisany dowolny wzór 16-bitowy. 


GetMaxColor (Graph) 
GetMaxColor — ujawnienie maksymalnego numeru koloru 
(por. SetColor) 
function GetMaxColor : word 
Utworzenie danej typu word, o wartości równej maksymalnemu numerowi 
koloru. 
Uwagi. System musi być w trybie graficznym. 


GetMaxX (Graph) 


GetMaxX — ujawnienie maksymalnej współrzędnej poziomej ekranu 


graficznego 
(por. GetMaxY, GetX, GetY, Move10) 


function GetMaxX : integer 


Utworzenie danej typu integer o wartości równej maksymalnej współrzędnej 
poziomej ekranu graficznego. 

Uwagi. System musi być w trybie graficznym. Współrzędne poziome należą do 
przedziału 0..GetMaxX. 


GetMaxY (Graph) 
GetMaxY — ujawnienie maksymalnej współrzędnej pionowej ekranu 
graficznego 
(por. GetMaxX, GetX, GetY, MoveT0) 


function GetMaxY : integer 


Utworzenie danej typu integer o wartości równej maksymalnej współrzędnej 
pionowej ekranu graficznego. 

Uwagi. System musi być w trybie graficznym. Współrzędne pionowe należą do 
przedziału 0..GetMaxY. 
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GetModeRange (Graph) 


GetModeRange — ujawnienie zakresu trybów graficznych 
(por. DetectGraph, InitGraph) 


procedure GetModeRange(GraphDriver : integer; 
var LoMode : integer; 
var HiMode : integer) 


Przypisanie LoMode najniższego, a HiMode najwyższego numeru trybu karty 
graficznej o numerze GraphDriver. 


Uwagi. System może być w trybie graficznym. Jeśli numer karty nie należy do 
przedziału 1..5 lub 7..10, to zmiennym LoMode i HiMode zostaną przypisane 
dane o wartości — 1. Numery kart graficznych mogą być wyrażone za pomocą 
następujących symboli: 


CGA — karta CGA (1) 
MCGA — karta MCGA 2) 
EGA — karta EGA £3) 
EGAMono — karta EGAMono 5) 


IBM68514 karta IBM8514 £6) 
HercMono — karta Hercules £7) 


ATT400  — karta ATT400 $£8) 
VGA — karta VGA $£9) 
PC3270 _ — karta PC3270 $10) 


GetPalette (Graph) 


GetPalette — ujawnienie bieżącej palety kolorów 
(por. SetAllPalette, SetPalette) 


procedure GetPalette(var Palette : Palette Type) 


Przypisanie zmiennej Palette danej rekordowej typu PaletteType, określającej 
rozmiar palety kolorów oraz identyfikatory kolorów przypisane poszczegól- 
nym pozycjom palety. 


Uwagi. System musi być w trybie graficznym. Typ PaletteType jest zdefiniowa- 
ny następująco: 


type 
PaletteType = record 
Size : byte; 
Colors : array[0..15] of shortint 
end; 
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Pole Size określa rozmiar palety, a pole Colors określa identyfikatory kolorów 
przypisane kolejnym pozycjom palety. Identyfikatory kolorów mogą być 
wyrażone za pomocą następujących symboli 


Black — czarny (0) 

Blue — niebieski (1) 

Green — zielony £2) 

Cyan — turkusowy (3) 

Red — czerwony 44) 
Magenta — karmazynowy 45) 
Brown — brązowy £6) 
LightGray — jasnoszary (7) 
DarkGray — ciemnoszary (8) 
LightBlue — jasnoniebieski (9) 
LightGreen _ — jasnozielony 10) 
LightCyan — jasnoturkusowy 411) 
Light Red — jasnoczerwony 412) 
LightMagenta — jasnokarmazynowy [13) 
Yellow — żółty (14) 

White — biały (15) 


GetPixel (Graph) 


GetPixel — ujawnienie numeru koloru piksela 
(por. Getlmage, Putlmage, PutPixel) 


function GetPixel(x,y : integer) : word 
Utworzenie danej typu word, o wartości równej numerowi koloru piksela 
wyświetlanego w punkcie (x,y). 


Uwagi. System musi być w trybie graficznym. 


GetTextSettings (Graph) 


GetTextSettings — ujawnienie parametrów wykreślania tekstów 
(por. InitGraph, SetTextJustify, 
SetTextStyle, TextHeight, TextWidth) 


procedure GetTextSettings(var Textlnfo : TextŚSettingsType) 
Przypisanie zmiennej TextInfo danej rekordowej typu TextSettings Type, okreś- 
lającej krój czcionki, kierunek wykreślania tekstu i sposób jego wyrównania. 


Uwagi. System musi być w trybie graficznym. Typ TextSettingsType jest 
zdefiniowany następująco 
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type 
TextSettingsType = record 
Font : word; 
Direction : word; 
CharSize : 1..10; 
Horiz : word; 
Vert : word 
end; 


Pole Font określa numer kroju czcionki; pole Direction określa kierunek 
wykreślania tekstów (HorizDir — poziomo, VertDir — pionowo); pole Char- 
Size określa mnożnik rozmiaru czcionki (jeśli CharSize = UserCharSize, to 
pionowy i poziomy mnożnik rozmiaru wynika z użycia procedury SetUser- 
CharSize); pole Horiz określa sposób wyrównania tekstu w poziomie (Left Text 
— do lewej, CenterText — centrycznie, RightText — do prawej); pole Vert 
określa sposób wyrównania tekstu w pionie (BottomText — do dołu, Center- 
Text — centrycznie, TopText — do góry). Wartości danych przypisanych 
polom Font, Direction, Horiz 1 Vert mogą być wyrażone za pomocą na- 
stępujących symboli: 


Pole Font 
DefaultFont  — krój domniemany (0) 
TriplexFont  — krój potrójny (1) 
SmallFont — krój indeksowy (2) 


SansSerifFont — krój bezszeryfowy (3) 
GothicFont krój gotycki (4) 


Pole Direction 
HorizDir — kierunek poziomy £0) 


VertDir — kierunek pionowy (1) 
Pole Horiz 
LefiText '— wyrównanie do lewej £0) 
CenterText — wyrównanie centryczne £1) 
RightText — wyrównanie do prawej (2) 
Pole Vert 
BottomText — wyrównanie do dołu £0j 
CenterText — wyrówanie centryczne (13 
Top Text — wyrównanie do góry 4/2) 


GetViewSettings (Graph) 


GetViewSettings — ujawnienie parametrów okienka graficznego 
(por. SetViewPort) 


procedure GetViewSettings (var ViewPor : ViewPort Type) 
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Przypisanie zmiennej ViewPort danej rekordowej typu ViewPortType, okreś- 
lającej współrzędne przeciwległych wierzchołków okienka graficznego oraz 
sposób traktowania wykresów wykraczających poza okienko. 


Uwagi. System musi być w trybie graficznym. Typ ViewPortType jest zdefinio- 
wany następująco 


type 
ViewPortType = record 
xl,yl : integer; 
x2,y2 : integer; 
Clip : boolean 
end; 


Pola xl, yl i x2, y2 określają współrzędne przeciwległych wierzchołków 
okienka graficznego, a pole Clip określa, czy wykresy mają być obcinane na 
obrzeżach okienka. Wartości danych przypisanych polu Clip mogą być 
wyrażone za pomocą następujących symboli. 


ClipOff — bez obcinania f false) 


ClipOn — z obcinaniem (true) 
GetX (Graph) 
GetX — ujawnienie poziomej współrzędnej kursora graficznego 


(por. GetViewSettings, GetY, 
InitGraph, MoveTo, SetViewPort) 


function GetX : integer 
Utworzenie danej typu integer o wartości równej poziomej współrzędnej 


kursora graficznego. 


Uwagi. System musi być w trybie graficznym. Współrzędna jest określona 
względem bieżącego okienka graficznego. 
GetY (Graph) 
GetY — ujawnienie pionowej współrzędnej kursora graficznego 
(por. GetViewSettings, GetX, 
InitGraph, MoveTo, SetViewPort) 
function GetY : integer 


Utworzenie danej typu integer o wartości równej poziomej współrzędnej 
kursora graficznego. 


Uwagi. System musi być w trybie graficznym. Współrzędna jest określona 
względem bieżącego okienka graficznego. 
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GotoXY (Crt) 


GotoXY — przemieszczenie kursora tekstowego 
(por. WhereX, WhereY, Window) 


procedure GotoXY(x,y : byte) 
Przemieszczenie kursora tekstowego na pozycję o współrzędnych (x,y). 


Uwagi. Współrzędne są określane względem bieżącego okienka tekstowego. 
Lewy górny narożnik tego okienka ma współrzędne (1,1). Jeśli nowe współ- 
rzędne miałyby wykraczać poza okienko, to wykonanie procedury nie wywoła 
żadnych skutków. 


GraphDefaults (Graph) 
GraphDefaults — przywrócenie domniemanych parametrów 
graficznych 
(por. InitGraph) 
procedure GraphDefaults 
Ustanowienie okienka graficznego obejmującego cały ekran, przemieszczenie 
kursora graficznego do jego lewego górnego narożnika oraz ustanowienie 
wszystkich domniemanych parametrów graficznych (palety, kroju czcionek, 
postaci linii, sposobu wypełniania obszarów i wyrównywania tekstów, Toz- 
miaru czcionek, koloru tła i koloru pierwszego planu). 


Uwagi. System musi być w trybie graficznym. 


GraphErrorMsg (Graph) 
GraphErrorMsg — ujawnienie komunikatu o przebiegu wykonania 
podprogramu graficznego 
(por. GraphResult, DetectGraph, InitGraph) 


function GraphErrorMsg. (ErrorCode : integer) : string 


Utworzenie danej typu string, złożonej ze znaków tworzących komunikat 
o numerze ErrorCode. 

Uwagi. System musi być w trybie graficznym. Numery komunikatów mogą być 
wyrażone za pomocą następujących symboli: 


grOK — pomyślne wykonanie operacji graficznej £0) 

grNolnitGraph — nie ustanowiono trybu graficznego (1) 

grNotDetected — nie wykryto karty graficznej ( —2) 

grFileNotFound — brak zbioru zawierającego sterownik graficz- 
ny (—3) 

grInvalidDriver — niewłaściwy sterownik graficzny (—4) 

grNoLoadMem — brak pamięci do załadowania sterownika 


(—5/ 
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grNoScanMem — brak pamięci do wypełnienia obszaru metodą 
scan £—6) 

grNoFloodMem — brak pamięci do wypełnienia obszaru metoda 
flood £—7) 

grFontFound — brak zbioru zawierającego definicję kroju 
czcionek (—8) 

grNoFontMem — brak pamięci do załadowania kroju kresko- 
wego £—9) 

grInvalidMode — niewłaściwie dobrany tryb graficzny (— 10) 

grError — inne błędy (np. nadmierna liczba zgłoszonych 
krojów kreskowych) £—11) 

grIOError — błąd operacji wejścia/wyjścia (— 12) 

grInvalidFont — niewłaściwy krój czcionek (—13) 

griInvalidFontNum  — niewłaściwy numer kroju czcionek /— 14) 


grlInvalidDeviceNum — 


GraphResult (Graph) 


niewłaściwy numer urządzenia /— 15) 


GraphResult — ujawnienie kodu powrotu ostatniej operacji graficznej 
(por. GraphErrorMsg) 
function GraphResult : 


integer 


Utworzenie danej typu integer o wartości określającej kod powrotu ostatniej 
operacji graficznej. 


Uwagi. System musi być w trybie graficznym. Rezultat o wartości 0 oznacza 
pomyślne, a rezultat o wartości ujemnej niepomyślne wykonanie operacji. 
Kody powrotu mogą być wyrażone za pomocą następujących symboli 


grOK — pomyślne wykonanie operacji graficznej (0) 

grNolnitGraph — nie ustanowiono trybu graficznego (1) 

grNotDetected — nie wykryto karty graficznej (—2) 

grFileNotFound — brak zbioru zawierającego sterownik graficz- 
ny £—3 

grInvalidDriver — a Właściwy sterownik graficzny | —4) 

grNoLoadMem — brak pamięci do załadowania sterownika 
(-5) 

grNoScanMem — brak pamięci do wypełnienia obszaru metodą 
scan (—6) 

grNoFloodMem — brak pamięci do wypełnienia obszaru metodą 
flood (—7) 

grFontFound — brak zbioru zawierającego definicję kroju 
czcionek /—8) 

grNoFontMem — brak pamięci do załadowania kroju kresko- 


19 — Turbo Pascal... 


wego (—9) 
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grInvalidMode — niewłaściwie dobrany tryb graficzny /— 10) 

grError — inne błędy (np. nadmierna liczba zgłoszonych 
krojów kreskowych) (—11) 

grIOError — błąd operacji wejścia/wyjścia (—12) 

grInvalidFont — niewłaściwy krój czcionek /— 13) 

grIncalidFontNum  — niewłaściwy numer kroju czcionek (— 14) 

grInvalidDeviceNum — niewłaściwy numer urządzenia (— 15) 


Ponieważ powtórne wywołanie funkcji GraphResult (bez wykonania w między- 
czasie operacji graficznej) powoduje udostępnienie danej o wartości O, zaleca 
się przypisać rezultat funkcji zmiennej pomocniczej. 

HighVideo (Crt) 


HighVideo — zwiększenie jasności znaków 
(por. LowVideo, NormVideo, 
TextBackground, TextColor) 


procedure HighVideo 


Ustawienie bitu jasności zmiennej TextAttr i tym samym spowodowanie, że 
następne znaki wyprowadzane na ekran będą rozjaśnione. 


Uwagi. Ustawienie bitu jasności powoduje odwzorowanie ciemnych kolorów 
pierwszego planu na jasne: 


Kolor ciemny Kolor jasny 


Black DarkGray (czarny/ciemnoszary) 

Blue LightBlue (niebieskie) 

Green LightGieen (zielone) 

Cyan LightCyan (turkusowe) 

Red LightRed (czerwone) 

Magenta LightMagenta  (karmazynowe) 

Brown LightBrown (brązowe) 

LightGray White (jasnoszary/biały) 
ImageSize (Graph) 

ImageSize — wyznaczenie rozmiaru pamięci do zapamiętania obrazu 

graficznego 


(por. Getlmage, PutImage) 
function ImageSize (x1l,yl : integer; 
x2,y2 : integer) : word 
Utworzenie danej typu word, o wartości równej liczbie bajtów pamięci 


niezbędnych do zapamiętania obrazu graficznego wyświetlanego w prosto- 
kącie, którego przeciwległe wierzchołki mają współrzędne (xl,yl) 1 (x2,y2). 
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Uwagi. System musi być w trybie graficznym. 


InitGraph (Graph) 


InitGraph — ustanowienie trybu graficznego 
(por. CloseGraph, DetectGraph, 
GraphResult, RestoreCrtMode, SetGraphMode) 


procedure InitGraph(var GraphDriver : integer; 
var GraphMode : integer; 
PathToDriver : string) 


Odszukanie w katalogu PathToDriver zbioru zawierającego program sterow- 
nika graficznego karty o numerze GraphDriver, sprowadzenie programu do 
pamięci operacyjnej i ustanowienie trybu graficznego GraphMode. 


Uwagi. Jeśli nazwa katalogu jest pusta, to zbiór jest poszukiwany w katalogu 
bieżącym. Jeśli GraphDriver = 0, to następuje automatyczne rozpoznanie 
środowiska graficznego, a zmiennym GraphDriver i GraphMode są przypisywa- 
ne dane o wartościach określających numer sterownika i numer trybu. Jeśli 
GraphDriver<>0, to GraphDriver i GraphkMode muszą poprawnie określać 
numer karty i numer trybu. Pamięć operacyjna wymagana przez sterownik jest 
przydzielana na stercie i zwalana w ramach wykonania procedury CloseGraph. 
Numery kart i trybów mogą być wyrażone za pomocą następujących symboli. 


Symbol karty 


Detect — automatyczne rozpoznanie karty graficznej (0) 
CGA — karta CGA 41) 

MCGA — karta MCGA 42) 

EGA — karta EGA $£3) 

EGA6 — karta EGA64 (4) 


EGAMono — karta EGAMono $£5) 
IBM8514 — karta IBM 8514 (6) 
HercMono — karta Hercules £7) 


ATT400  — karta ATT400 $£8) 

VGA — karta VGA £9) 

PC3270 _ — karta PC3270 (10) 

Symbol trybu 

CGACO — 320x200, paleta O (0) 
CGACI — 320x200, paleta 1 (1) 
CGAC2 — 320x200, paleta 2 /2) 
CGAC3 — 320x200, paleta 3 (3) 
CGAHi — 640x200, I strona (4) 


MCGACO0  — 320x200, paleta O (0) 
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MCGACI  — 320x200, paleta I £1) 
MCGAC2  — 320x200, paleta 2 £2) 
MCGAC3 — 320x200, paleta 3 (3) 
MCGAMed — 640x200, I strona 4/4) 
MCGAHi '— 640x480, 1 strona £5) 
EGALo — 640x200, 16 kolorów, 4 strony (0) 
EGAHi — 640x350, 16 kolorów, 2 strony 41) 
EGA64Lo — 640x200, 16 kolorów, 1 strona 40) 


EGAMonoHi — 640 x 350, 
64K na karcie, 1 strona (3) 
256K na karcie, 2 strony £3) 
HercMonoHi — 720x348, 2 strony £0) 


ATI400C0  — 320x200, paleta O £0) 
ATT400CI  — 320x200, paleta 1 (1 
ATT400C2  — 320x200, paleta 2 42) 
ATT400C3  — 320x200, paleta 3 3) 
ATI400Med — 640x200, 1 strona £4) 
ATT400Hi  — 640x400, 1 strona (5) 
VGALo — 640x200, 16 kolorów, 4 strony 40) 
VGAMed — 640x350, 16 kołorów, 2 strony 41) 
VGAHi — 640x480, 16 kolorów, 1 strona 42) 
PC3270Hi  — 720x350, 1 strona £0) 


IBM8514Lo — 640x480, 256 kolorów 
IBM8514Hi — 1024x 768, 256 kolorów 


Niepomyślne wykonanie procedury InitGraph powoduje, że rezultatem funkcji 
GraphResult jest dana o jednej z następujących wartości 


grNotDetected — nie wykryto karty graficznej £/—2) 

grFileNotFound _ — brak zbioru zawierającego sterownik graficzny 
(-3) 

grInvalidDriver — niewłaściwy sterownik graficzny (—4) 

grNoLoadMem — brak pamięci do załadowania sterownika 
(-5) 

grInvalidMode — niewłaściwie dobrany tryb graficzny (—10) 


grInvalidDeviceNum — niewłaściwy numer urządzenia (—15) 


InsLine (Ctr) 


InsLine — wstawienie wiersza 
(por. DelLine, Window) 


procedure InsLine 


Wstawienie w okienku tekstowym, bezpośrednio pod wierszem wyróżnionym 
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przez kursor, jednego wiersza pustego. Przesunięcie wierszy położonych 


poniżej wyróżnionego o jeden do dołu. Usunięcie z okienka, wiersza położone- 
go najniżej. 


Uwagi. Jeśli kolorem tła nie jest czerń, to wiersz pusty zostanie wypełniony 
spacjami w kolorze określonym za pomocą procedury TextBackground. 
Line (Graph) 


Line — wykreślenie odcinka linii prostej 
(por. LineTo, MoveTo, Rectangle, SetColor, 
SetLineStyle) 


procedure Line(xl,yl : integer; 
x2,y2) : integer) 


Wykreślenie odcinka linii prostej łączącego punkt o współrzędnych (x1,yl) 
Z punktem o współrzędnych (x2,y2). 

Uwagi. System musi być w trybie graficznym. Współrzędne kursora graficz- 
nego nie ulegają zmianie. 

LineRel (Graph) 


LineRel — wykreślenie odcinka linii prostej 
(por. Line, LineTo, MoveRel, MoveTo, 
SetColor, SetLineStyle) 


procedure LineRel(dx,dy : integer) 
Wykreślenie odcinka linii prostej, łączącego punkt wyróżniony przez kursor 


graficzny z punktem odległym od niego o dx w poziomie i dx w pionie. Zmiana 
wpółrzędnych kursora graficznego o dx w poziomie i dy w pionie. 


Uwagi. System musi być w trybie graficznym. 
LineTo (Graph) 


LineTo — wykreślenie odcinka linii prostej 
(por. Line, LineRel, MoveTo, MoueRel, 
SetColor, SetLineStyle) 


procedure LineTo(x,y : integer) 


Wykreślenie odcinka linii prostej, łączącego punkt wyróżniony przez kursor 
graficzny z punktem o współrzędnych (x,y). Przesunięcie kursora graficznego 
do punktu o współrzędnych (x,y). 


Uwagi. System musi być w trybie graficznym. 
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LowVideo (Crt) 
LowVideo — zmniejszenie jasności znaków 
(por. HighVideo, NormVideo, TextBackgrouna, 
TextColor) 
procedure LowVideo 
Wyzerowanie bitu jasności zmiennej TextAttr 1 tym samym spowodowanie, że 
następne znaki wyprowadzane na ekran będą przyciemnione. 
Uwagi. Wyzerowanie bitu jasności powoduje odwzorowanie jasnych kolorów 
pierwszego planu na ciemne 
Kolor jasny Kolor ciemny 


DarkGray Black (ciemnoszary/czarny) 
LightBlue Blue (niebieskie) 
LightGreen Green (zielone) 

LightCyan Cyan (turkusowe) 

LightRed Red (czerwone) 
LightMagenta Magenta (karmazynowe) 
Yellow Brown (brązowe) 

White LightGray (biały/jasnoszary) 


MoveRel (Graph) 


MoveRel — przemieszczenie kursora graficznego 
(por. LineRel, LineTo, Move To) 


procedure MoveRel(dx,dy : integer) 


Zmiana współrzędnej poziomej kursora graficznego o dx i współrzędnej 
pionowej o dy. 


Uwagi. System musi być w trybie graficznym. 
MoveTo (Graph) 


MoveTo — przemieszczenie kursora graficznego 
(por. LineRel, LineTo, MoveRel) 


procedure MoveTo(x,y : integer) 
Przemieszczenie kursora graficznego do punktu o współrzędnych (x,y). 
Uwagi. System musi być w trybie graficznym. 
NormYVideo (Crt) 


NormVideo — odtworzenie atrybutu wyświetlania znaków 
(por. HighVideo, LowVideo, TextBackground, TextColor) 


procedure NormVideo 
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Przypisanie zmiennej TextAttr takiego atrybutu określającego sposób wyświet- 
lania znaków, jaki obowiązywał w chwili rozpoczęcia wykonywania programu. 


OutText (Graph) 


OQutText — wykreślenie tekstu 
(por. GetTextSettings, OutTextXY, SetTextJustify, 
SetTextStyle, TextHeight, TextWidth) 


procedure OutText(TextString : string) 


Wykreślenie w pobliżu bieżącej pozycji kursora graficznego, tekstu okreś- 
lonego przez TextString. 


Uwagi. System musi być w trybie graficznym. Tekst jest wykreślany czcionką 
określoną za pomocą procedury SetTextStyle 1 w kolorze określonym za 
pomocą procedury SetColor. Usytuowanie tekstu względem pozycji kursora 
graficznego może być określone za pomocą procedury SetTextJustify. Jeśli 
pierwszy argument tej procedury ma wartość Lefi Text, a tekst jest wyświetlany 
w poziomie, to pozioma współrzędna kursora graficznego jest przemieszczana 
o szerokość wyświetlanego tekstu. W pozostałych przypadkach pozycja 
kursora nie ulega zmianie. Jeśli tekst nie mieści się w bieżącym okienku 
graficznym, to jest obcinany na jego obrzeżach. 


OutTextXY (Graph) 


OQutTextXY — wykreślenie tekstu 
(por. GetTextSettings, QutText, Set TextJustify, 
SetTextStyle, TextHeight, TextWidth) 


procedure OutTextXY (x,y : integer; 
lTextString : string) 


Wykreślenie w pobliżu punktu o współrzędnych (x,y), tekstu określonego przez 
TextString. 


Uwagi. System musi być w trybie graficznym. Pozycja kursora graficznego nie 
ulega zmianie. Tekst jest wykreślany czcionką określoną za pomocą procedury 
SetTextStyle i w kolorze określonym za pomocą procedury SetColor. Sposób 
usytuowania tekstu względem punktu o współrzędnych (x,y) może być okreś- 
lony za pomocą procedury Set TextJustify. Jeśli tekst nie mieści się w bieżącym 
okienku graficznym, to jest obcinany na jego obrzeżach. 


PieSlice (Graph) 


PieSlice — wykreślenie wycinka koła 
(por. Arc, Circle, Ellipse, GetArcCoords, GetAspectRatio, 


SetColor, SetFillPattern, SetFillStyle) 
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procedure PieSlice(x,y : integer; 
StAngle.EndAngle : word; 
Radius : word) 


Wykreślenie wycinka koła o środku w punkcie (x,y) i promieniu Radius, 
począwszy od kąta StAngle, a skończywszy na kącie EndAngle. Wypełnienie 


wycinka wzorem określonym za pomocą procedury SetFillStyle albo SetFill- 
Pattern. 


Uwagi. System musi być w trybie graficznym. Obranie kątów StAngle = 0 
i EndAngle = 360 powoduje wykreślenie pełnego koła. Niepomyślne wykona- 


nie procedury PieSlice powoduje, że rezultatem funkcji GraphResult jest dana 
o wartości 


grNoScanMem — brak pamięci do wypełnienia obszaru metodą scan 
(-6) 
Putlmage (Graph) 


Putlmage — umieszczenie obrazu na ekranie 
(por. Getlmage, ImageSize) 


procedure PutImage(x,y : integer; 
var BitMap; 
Op : word) 


Umieszczenie na ekranie prostokątnego obrazu graficznego zapamiętanego 
uprzednio w obszarze zlokalizowanym przez BitMap. Wykonanie tego w taki 
sposób, aby lewy górny narożnik prostokąta znalazł się w punkcie o współ- 
rzędnych (x,y), a nałożenie obrazu na ekran odbyło się zgodnie z wartością Op. 


Uwagi. System musi być w trybie graficznym. Wykonanie procedury Putlmage 
nie powoduje obcięcia obrazu na obrzeżach okienka graficznego. Jeśli obcięcie 
byłoby wymagane, to wykonanie procedury nie wywoła żadnych skutków. 
Wyjątek: jeśli dolnym obrzeżem okienka jest dolne obrzeże ekranu, to obraz 
wykraczający poza to obrzeże (i tylko poza nie) jest umieszczany na ekranie 
i obcinany. Sposób nałożenia obrazu na ekran (parametr Op) może być 
określony za pomocą następujących symboli 


NormalPut — operacja mov 40) 
xorPut — operacja xor (1) 
orPut — operacja or (2) 
andPut — operacja and (3) 
notPut — operacja not (4) 


PutPixel (Graph) 


PutPixel — wyświetlenie piksela 
(por. Getlmage, GetPixel, PutImage) 
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procedure PutPixel(x,y : integer; 
Color : word) 


Wyświetlenie w punkcie o współrzędnych (x,y) piksela w kolorze o numerze 
Color. 

Uwagi. System musi być w trybie graficznym. 

Rectangle (Graph) 


Rectangle — wykreślenie prostokąta 
(por. Bar, Bar3D, SetColor, SetLineStyle) 
procedure Rectangle(xl,yl : integer; 
x2,y2 : integer) 


Wykreślenie prostokąta, którego przeciwległe wierzchołki mają współrzędne 
(xI,yl) 1 (x2,y2). 

Uwagi. System musi być w trybie graficznym. 

RegisterBGIDriver (Graph) 


RegisterBGDriver — zgłoszenie sterownika graficznego 
(por. RegisterBGI Font) 


function RegisterBGIDriver(Driver : pointer): integer 


Zgłoszenie, że w obszarze pamięci operacyjnej wskazanym przez Driter 
znajduje się program sterownika graficznego. Utworzenie danej typu integer 
o wartości równej wewnętrznemu numerowi zgłoszonego sterownika. 


Uwagi. Niepomyślne wykonanie funkcji RegisterBGIDriter powoduje, że 
rezultatem funkcji GraphResult jest dana o wartości 


grInvalidDriver — niewłaściwy sterownik graficzny £/—4] 


RegisterBGIFont (Graph) 


RegisterBGIFont — zgłoszenie kroju czcionek 
(por. RegisterBGIDriver) 


function RegisterBGIFont(Font : pointer) : integer 


Zgłoszenie, że w obszarze pamięci operacyjnej wskazanym przez Font znajduje 
się definicja kroju czcionek. Utworzenie danej typu integer o wartości równej 
wewnętrznemu numerowi tego kroju. 

Uwagi. Niepomyślne wykonanie funkcji RegisterBGIFont powoduje, że rezul- 
tatem funkcji GraphResult jest dana o jednej z następujących wartości 


grError — nadmierna liczba zgłoszonych krojów czcionek 


t—11) 
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grInvalidFont — niewłaściwy krój czcionek /—13) 
grInvalidFontNum — niewłaściwy numer kroju czcionek ;+ — 14) 


RestoreCrtMode (Graph) 


RestoreCrtMode — przywrócenie trybu tekstowego 


(por. DetectGraph, InitGraph, SetGraphM ode) 
procedure RestoreCrtMode 


Przywrócenie trybu tekstowego, obowiązującego przed ustanowieniem trybu 
graficznego. 


Uwagi. System musi być w trybie graficznym. Użycie procedury RestoreCrt- 
Mode na przemian z procedurą SetGraphMode umożliwia dogodne przełącza- 
nie systemu między trybem tekstowym i graficznym. 


SetActivePage (Graph) 


SetActivePage — wybranie strony aktywnej 
(por. SetVisualPage) 


procedure SetActivePage(Page : word) 


Wybranie strony o numerze Page jako strony aktywnej 


Uwagi. System musi być w trybie graficznym. Po wykonaniu procedury Set- 
ActivePage wszystkie operacje graficzne będą dotyczyć strony o podanym 


numerze. Możliwość wyboru strony aktywnej dotyczy jedynie kart EGA, VGA 
1 Hercules. 


SetAlliPalette (Graph) 


SetAllPalette — zmiana kolorów przypisanych pozycjom palety 
i (por. GetBkColor, GetColor, GetPalette, SetBkColor, 
SetColor, SetPalette) 


procedure SetAllPalette(var Palette : PaletteType) 


Przypisanie identyfikatorów kolorów określonych przez pola rekordu Palette 
typu PaletteType pozycjom palety. 


Uwagi. System musi być w trybie graficznym. Typ PaletteType jest zdefiniowa- 
ny następująco 


type 
PaletteType = record 
Size : byte; 
Colors : array[0..15] of shortint 
end; 
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Pole Size określa rozmiar palety, a pole Colors określa identyfikatory kolorów. 
Jeśli element tablicy Colors ma wartość — 1, to kolor przypisany odpowiedniej 
pozycji palety nie ulega zmianie. Identyfikatory kolorów mogą być wyrażone 
za pomocą następujących symboli 


Black — czarny (0) 

Blue — niebieski (1) 

Green — zielony (2) 

Cyan — turkusowy £3) 

Red — czerwony (4) 
Magenta — karmazynowy £5) 
Brown — brązowy £6) 
LightGray — jasnoszary (7) 
DarkGray — ciemnoszary (8) 
LightBlue — jasnoniebieski £9) 
LightGreen _ — jasnozielony f£10) 
LightCyan — jasnoturkusowy (11) 
LightRed — jasnoczerwony f12) 
LightMagenta — jasnokarmazynowy £13) 
Yellow — żółty (14) 

White — biały (15) 


SetBkColor (Graph) 


SetBkColor — zmiana koloru tła 
(por. GetBkColor, GetColor, GetPalette, SetAllPalette, 


SetColor, SetPalette) 
procedure SetBkColor(Color : word) 


Zmiana koloru tła na taki kolor, jaki jest związany z pozycją o numerze Color 
bieżącej palety. Wyjątek: jeśli Color = 0, to kolor tła zostanie zmieniony na 


czarny. 


Uwagi. System musi być w trybie graficznym. 


SetColor (Graph) 
SetColor — wybranie numeru koloru do wykreślania linii 
(por. GetBkColor, GetColor, GetPalette, SetAllPalette, 


SetBkColor, SetPalette) 


procedure SetColor(Color : word) 
Wybranie do wykreślenia linii koloru o numerze Color. 


Uwagi. System musi być w trybie graficznym. 
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SetFiliPattern (Graph) 


SetFillPattern — ustalenie wzoru wypełniania obszarów 
(por. GetBkColor, GetColor, GetPalette) 
SetBkColor, SetColor, SetPalette) 


procedure SetFillPattern(Pattern : FillPatternType; 
Color : word) 


Ustalenie wzoru Pattern do wypełniania obszarów (FillPoly, Bar, FloodFill, 
Bar3D, PieSlice) i numeru koloru Color wzoru wypełniającego. 


Uwagi. System musi być w trybie graficznym. Wzór wypełniający jest bitowym 
prostokątem 8 x 8 pikseli, zapamiętanym w tablicy typu FillPatternType. Typ 
FillPatternType jest zdefiniowany następująco 


type 
FillPatternType = array[1..8] of byte; 


SetFilliStyle (Graph) 


SetFillStyle — ustalenie standardowego wzoru wypełniania obszarów 
(por. Bar, Bar3D, GetFillSettings, FillPoly, PieSlice) 


procedure SetFillStyle(Pattern : word; 
Color : word) 


Ustalenie numeru Pattern wzoru do wypełniania obszarów (FillPoly, FloodFill, 
Bar, Bar3D, PieSlice) i numeru koloru Color wzoru wypełniającego. 


Uwagi. System musi być w trybie graficznym. Numery wzorów wypełniających 
mogą być wyrażone za pomocą następujących symboli: 


EmptyFill — wypełnienie kolorem tła £0) 

SolidFill — wypełnienie ciągłe £1) 

LineFill — wypełnienie pogrubionymi liniami poziomymi 4/2) 
LtSlashFil|  — wypełnienie liniami pochyłymi 4/3) 

SlashFill — wypełnienie pogrubionymi liniami pochyłymi 4/4) 
BkSlashFill  — wypełnienie pogrubionymi liniami ukośnymi 5) 

LtBkSlashFill — wypełnienie liniami ukośnymi (6) 

HatchFill — wypełnienie siatką pionową £7) 

xHatchFill _— wypełnienie siatką ukośną (8) 

InterleaveFill — wypełnienie liniami splecionymi 9) 


WideDotFill — wypełnienie kropkami (10) 
CloseDotFill — wypełnienie zagęszczonymi kropkami 411) 
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SetGraphBufSize (Graph) 
SetGraphBufSize — ustalenie rozmiaru bufora wykorzystywanego do 
wypełniania obszarów 
(por. InitGraph) 


procedure SetGraphBufSize(BufSize : word) 


Ustalenie rozmiaru bufora wykorzystywanego do wypełniania obszarów na 
wartość BufSize bajtów. 
Uwagi. System musi być w trybie graficznym. Rozmiar bufora musi być 
ustalony przed wywołaniem procedury IniiGraph. Miejsce dla bufora jest 
przydzielane na stercie. 


SetGraphMode (Graph) 


SetGraphMode — przelączenie systemu do trybu graficznego 
(por. ClearDevice, DetectGraph, GetGraphMode, 


InitGraph, RestoreCrtMode) 
procedure SetGraphMode(Mode : integer) 


Przełączenie systemu do trybu graficznego o numerze Mode, a następnie 
niejawne wykonanie procedury GraphDefaults. 


CGACO — 320x200, paleta 0 £0) 
CGACI — 320x200, paleta 1 £1) 

CGAC2 — 320x200, paleta 2 £2) 

CGAC3 — 320x200, paleta 3 £3) 

CGAHi — 320x200, I strona (4) 

MCGACO0  — 320x200, paleta 0 £0) 

MCGACI '— 320x200, paleta 1 (1) 

MCGAC2  — 320x200, paleta 2 2) 

MCGAC3  — 320x200, paleta 3 (3) 

MCGAMed — 640x200, 1 strona (4) 

MCGAHi '— 640x480, 1 strona (5) 

EGALo — 640x200, 16 kolorów, 4 strony (0) 
EGAHi — 640x350, 16 kolorów, 2 strony (1) 
EGA64Lo  — 640x200, 16 kolorów, 1 strona £0] 
EGAG64Hi — 640x350, 4 kolory, 1 strona £1) 


EGAMonoHi — 640 x 350, 
64K na karcie, I strony (3) 


256K na karcie, 2 strony (3) 
HercMonoHi — 720x348, 2 strony £0) 
ATTI400C0  — 320x200, paleta O (0) 
ATT400C1  — 320x200, paleta 1 f1) 
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ATTI400C2  — 320x200, paleta 2 £2) 
ATTI400C3  — 320x200, paleta 3 (3) 
ATT400Med — 640x200, 1 strona £4) 
ATT400Hi — 640x400, 1 strona 5) 
VGALo — 640x200, 16 kolorów, 4 strony (0) 
VGAMed — 640x350, 16 kolorów, 2 strony (1) 
VGAHi — 640x480, 16 kolorów, 1 strona £2) 
PC3270Hi  — 120x350, 1 strona $£0) 


IBM8514Lo — 640x480, 256 kolorów 
I1BM8514Hi — 1024x 768, 256 kolorów 


SetLineStyle (Graph) 


SetLineStyle — wybranie postaci linii 
(por. GetLineSettings, Line, LineRel, Line To) 


procedure SetLineStyle(LineStyle : word; 
Pattern : word; 
Thickness : word) 


Wybranie postaci linii na podstawie LineStyle i grubości linii na podstawie 
Thickness. W przypadku gdy LineStyle = UserBitLn, zdefiniowanie postaci 
linii na podstawie układu bitów Pattern. 


Uwagi. System musi być w trybie graficznym. Numery postaci linii mogą być 
wyrażone za pomocą następujących symboli 


SolidLn — linia ciągła £0) 
DottedLn — linia kropkowa 1) 
CenterLn — linia centrowana (2) 


DashedLn — linia przerywana (3) 
UserBitLn — linia zdefiniowana (4) 
Grubość linii może być wyrażona za pomocą następujących symboli 


NormWidth — linia cienka f1) 
ThickWidth — linia pogrubiona (3) 


SetPalette (Graph) 
SetPalette — zmiana koloru przypisanego pozycji palety 
(por. GetBkColor, GetColor, GetPalette, SetBkColor, 
SetColor) 
procedure SetPalette(ColorNum : word; 
Color : byte) 


Przypisanie pozycji ColorNum palety, identyfikatora koloru Color. 
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Uwagi. System musi być w trybie graficznym. Zmiana koloru ujawnia się na 
ekranie natychmiast po wykonaniu procedury SetPalette. Identyfikatory kolo- 
rów mogą być wyrażone za pomocą następujących symboli 


Black — czarny £0) 

Blue — niebieski (1) 

Green — zielony (2) 

Cyan — turkusowy 3) 

Red — czerwony (4) 
Magenta — karmazynowy £5) 
Brown — brązowy $6) 
LightGray — jasnoszary 47) 
DarkGray — ciemnoszary 4/8) 
LightBlue — jasnoniebieski £9) 
LightGreen _ — jasnozielony f10) 
LightCyan — jasnoturkusowy £11) 
LightRed — jasnoczerwony (12) 
LightMagenta — jasnokarmazynowy (13) 
Yellow — żółty £14) 

White — biały (15) 


SetTextJustify (Graph) 


SetlextJustify — ustalenie sposobu wyrównywania tekstów graficz- 
nych 
(por. GetTextSettings, OutText, OutTextXY, 
SetLineStyle, TextHeight, TextWidth) 
procedure Set TextJustify(Horiz: word; 
Vert : word) 


Ustalenie sposobu wyrównywania tekstów graficznych w poziomie na pod- 
stawie Horiz i ustalenie soosobu ich wyrównywania w pionie na podstawie 
Vert. 

Uwagi. System musi być w trybie graficznym. Wyrównywanie odbywa się 
względem punktu wyróżnionego przez kursor graficzny (procedura Out Text) 
albo względem punktu o podanych współrzędnych (procedura OutTextX Y). 
Wyrównanie w poziomie może być wyrażone za pomocą następujących 
symboli 


LefiText  — wyrównanie do lewej (0) 
CenterText — wyrównanie centryczne (1) 
RightText — wyrównanie do prawej (2) 


Wyrównanie w pionie może być wyrażone za pomocą następujących symboli 
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BottomText — wyrównanie do dołu £0) 
CenterText — wyrównanie centryczne |1) 
Top Text — wyrównanie do góry 412) 


SetTextStyle (Graph) 
SetTextStyle — wybranie kroju czcionek, kierunku wykreślania 
znaków tekstu i ich rozmiaru 
(por. GetTextSettings, QOutText, OQutTextXY, 
SetTextJustify, TextHeight, TextWidth) 
procedure Set TextStyle(Font : word; 
Direction : word; 
CharSize : word) 


Wybranie kroju czcionek Font, kierunku wyprowadzenia Direction i rozmiaru 
czcionek CharSize. 


Uwagi. System musi być w trybie graficznym. Krój czcionek może być 
wyrażony za pomocą następujących symboli 


DefaultFont ' — krój domniemany, określony przez wzorzec 8x8 
bitów 40) 

TriplexFont _ — krój kreskowy potrójny 41) 

SmallFont — krój kreskowy indeksowy 42) 

SansSerifFont — krój kreskowy bezszeryfowy £3) 

GothicFont — krój kreskowy gotycki 4/4) 


Kroje kreskowe charakteryzują się tym, że ich powiększenie nie pogarsza 
wyglądu czcionki. Kierunek wyprowadzania może być wyrażony za pomocą 
następujących symboli 


HorizDir — poziomo, od lewej do prawej (0) 
VertDir  — pionowo, od dołu do góry (1) 


Czcionki o krojach kreskowych mogą być rozciągane w pionie i w poziomie 
(por. procedura SetUserCharSize). Wymaga to użycia parametru Size o wartoś- 
ci określonej przez symbol 


UserCharSize — rozmiar programowany 4/0) 


Ponieważ kroje czcionek są zazwyczaj ładowane z dysku, niepomyślne wyko- 
nanie procedury SetTextStyle powoduje, że rezultatem funkcji GraphResult jest 
dana o jednej z następujących wartości 


grFileNotFound — brak zbioru definiującego krój (—8) 


grNoFontMem — brak pamięci operacyjnej do zapamiętania kroju 
1-3 
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SetUserCharSize (Graph) 
SetUserCharSize — zdefiniowanie współczynników rozciągania 
czcionek krojów kreskowych 
(por. Set TextStyle) 


procedure SetUserCharSize(xMul,xDiv : byte; 
yMul,yDiv : byte) 


Zdefiniowanie współczynnika rozciągania w poziomie jako xMul/xDiv i współ- 
czynnika rozciągania w pionie jako yMul/yDiv. 
Uwagi. System musi być w tybie graficznym. Po wykonaniu procedury 


SetUserCharSize należy wywołać procedurę SetTextStyle z trzecim argumen- 
tem o wartości UserCharSize £0). 


SetViewPort (Graph) 
SetViewPort — zdefiniowanie okienka graficznego 
(por. ClearViewPort, GetViewSettings, Window) 
procedure SetViewPort(xl,yl : integer; 
x2,y2 : integer; 
Clip : boolean) 


Zdefiniowanie okienka graficznego jako prostokąta o współrzędnych przeciw- 
ległych wierzchołków (xł,pl) i (x2,y2). Określenie na podstawie Clip, czy 
wykresy wykraczające poza okienko mają być obcinane. 
Uwagi. System musi być w trybie graficznym. Sposób traktowania wykresów 
wykraczających poza okienko może być wyrażony za pomocą następujących 
symboli 

ClipOff — nie obcinaj 4 false) 

ClipOn — obcinaj (true) 


Po utworzeniu okienka graficznego wszystkie operacje graficzne (z wyjątkiem 
SetViewPort) są wykonywane w tym okienku. Przez domniemanie przyjmuje 
się, że takim okienkiem jest cały ekran. 


SetVisualPage (Graph) 


SetVisualPage — wybranie strony wyświetlanej 
(por. SetActivePage) 


procedure SetVisualPage(Puge : word) 
Wybranie do wyświetlenia strony o numerze Page. 


Uwagi. System musi być w trybie graficznym. Możliwość wyboru strony 
wyświetlanej dotyczy jedynie kart EGA, VGA i Hercules. 


20 — Turbo Pascal... 
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TextBackground (Ctr) 


TexBackground — ustalenie koloru tła 
(por. HighVideo, LowVideo, NormVideo, TextColor) 


procedure TextBackground(Color : byte) 
Przypisanie zmiennej TextAttr atrybutu koloru tła Color. 


Uwagi. Atrybut koloru tła jest trzybitowy i może być wyrażony za pomocą 
następujących symboli: 


Black — czarny 4/0) 

Blue — niebieski (1) 
Green — zielony £2) 

Cyan — turkusowy /3) 
Red — czerwony 4/4) 
Magenta — karmazynowy (5) 
Brown — brązowy £6) 
LightGray — jasnoszary 47) 


Po ustaleniu koloru tła, wszystkie znaki wyprowadzane na ekran (włącznie ze 
spacjami) będą przedstawione na podanym tle. 


TextColor (Crt) 


TextColor — ustalenie koloru pierwszego planu 
(por. HighVideo, LowVideo, NormVideo, TextBackground) 


procedure TextColor(Color : byte) 


Przypisanie zmiennej TextAttr atrybutu koloru znaku (i migotania) o wartości 
Color. 


Uwagi. Atrybut koloru znaku jest czterobitowy i może być określony za 
pomocą następujących symboli: 


Black — czarny 40) 

Blue — niebieski (1) 
Green — zielony 2) 

Cyan turkusowy £3) 
Red czerwony 44) 
Magenta karmazynowy /5) 
Brown brązowy (6) 
LightGray jasnoszary (7) 
DarkGray ciemnoszary 4/8) 
LightBlue jasnoniebieski £9) 


LightGreen 


jasnozielony £10) 
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LightCyan — jasnoturkusowy (11) 
LightRed — jasnoczerwony f12) 
LightMagenta — jasnokarmazynowy (13) 
Yellow — żółty (14) 

White — biały (15) 

Blink — migotanie (128) 


Po ustaleniu koloru znaku, wszystkie znaki będą wprowadzane na ekran 
w tym kolorze. 


TextHeight (Graph) 


TextHeight — wyznaczenie wysokości tekstu 
(por. OutText, OutTextXY, SetTextStyle, 
SetUserCharSize, TextWidth) 


function TextHeight(TextString : string) : word 


Utworzenie danej typu word o wartości równej wyrażonemu w pikselach 
pionowemu rozmiarowi tekstu TextString. 


Uwagi. System musi być w trybie graficznym. Rezultat uwzględnia współczyn- 
nik rozciągania znaków w pionie. 
TextMode (Crt) 


TextMode — ustanowienie trybu tekstowego 
(por. RestoreCrt) 


procedure TextMode(Mode : word) 
Zmiana bieżącego trybu tekstowego na tryb tekstowy Mode. 


Uwagi. Nowy tryb tekstowy może być wyrażony za pomocą następujących 
symboli: 


BW40 — 40x80, czarno-biały £0) 


C40 — 40x25, kolorowy (1) 

BWS0 — 80x25, czarno-biały (2) 

C80  — 80x25, kolorowy £3) 

Mono — 80x25, czarno-biały (na monitorze 


monochromatycznym) (7) 


Dodatkową możliwością określenia trybu jest odwołanie się do zmiennej 
LastMode. W prologu zmiennej tej jest przypisywany numer trybu obowiązują- 
cego przed podjęciem wykonywania programu. W celu umożliwienia wy- 
prowadzania na ekran 43 wierszy tekstu (karta EGA) albo 50 wierszy (karta 
VGA), zdefiniowano dodatkowy symbol 


Font8x8 £$100) 
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W szczególności wywołanie 
TextMode(CO80 + Font8x8) 


powoduje ustanowienie trybu tekstowego kolorowego 80 x 25 z wyprowadza- 
niem 43 albo 50 wierszy. Pozostaje nadmienić, że bezpośrednio po wywołaniu 
procedury TextMode, bieżącym okienkiem tekstowym staje się cały ekran, 
okienko zostaje wyczyszczone, a zmiennej 7extAttr zostają przypisane atrybuty 
jak po wywołaniu procedury NormVideo. 


TextWidth (Graph) 


TextWidth — wyznaczenie szerokości tekstu 
(por. Out Text, QutTextXY, Set TextStyle, 
SetUserCharSize, TextHeight) 


function TextWidth(TexrString : string) : word 


Utworzenie danej typu word o wartości równej wyrażonemu w pikselach 
poziomemu rozmiarowi tekstu TextString. 


Uwagi. System musi być w trybie graficznym. Rezultat uwzględnia współczyn- 
nik rozciągania znaków w poziomie. 


WhereX (Crt) 


WhereX — udostępnienie poziomej współrzędnej kursora tekstowego 
(por. GotoXY, WhereY, Window) 


function WhereX : byte 


Utworzenie danej typu byte o wartości równej poziomej współrzędnej kursora 
tekstowego. 


Uwagi. Współrzędna dotyczy bieżącego okienka tekstowego. Lewy górny znak 
okienka ma współrzędną poziomą 1. 


WhereY (Crt) 


WhereY — udostępnienie pionowej współrzędnej kursora 
tekstowego 


(por. GotoX Y, WhereX, Window) 
function WhereY : byte 


Utworzenie danej typu byte o wartości równej pionowej współrzędnej kursora 
tekstowego. 


Uwagi. Współrzędna dotyczy bieżącego okienka tekstowego. Lewy górny znak 
okienka ma współrzędną pionową 1. 
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Window (Crt) 


Window — utworzenie okienka tekstowego 
(por. SetViewPort) 


procedure Window(xl,yl : byte; 
x2,y2 : byte) 


Zdefiniowanie okienka tekstowego jako prostokąta, którego przeciwległe 
wierzchołki mają współrzędne (x1,yl) i (x2,y2). 


Uwagi. Współrzędne są liczone względem ekranu. Lewy górny narożnik 
ekranu ma współrzędne (1,1). Najmniejsze okienko składa się z jednej kolumny 
i jednego wiersza. Okienko domniemane ma współrzędne (1,1,80,25) w trybach 
80-kolumnowych i współrzędne (1,1,40,25) w trybach 40-kolumnowych. 
W przypadku błędnego określenia współrzędnych okienka, wykonanie proce- 
durv Window nie wywołuje żadnych skutków. Po ustanowieniu okienka 
tekstowego, wszystkie współrzędne tekstowe (z wyjątkiem wymienionych 
w procedurze Window) są liczone względem okienka. Współrzędne ekranowe 
okienka (każda zmniejszona o 1) są zapamiętywane w zmiennych WindMin 
1 WindMax. Pierwsza z nich określa współrzędne lewego górnego, a druga 
prawego dolnego narożnika okienka. Pierwszy bajt każdej z tych zmiennych 
zawiera współrzędną x, a drugi współrzędną y. 


Wybrane definicje i deklaracje modułów 
Crt i Graph 


(opracowano za zgodą Borland International na podstawie zbiorów Crt. doc 
i Graph.doc znajdujących się na dyskietce dystrybucyjnej systemu Turbo 
Pascal 4.0) 


Turbo Pascal Version 4.0 
CRT Unit Interface Documentation 


Copyright (c) 1987 Borland International, Inc. 


unit Crt; 
interface 
const 
( CRT modes ) 
BW40 =(0 (40x25 B/W on Color Adapter j 
CO040 = l; (40x25 Color on Color Adapter ; 
3 (80x25 B/W on Color Adapter ) 


310 E. Grafika w Turbo Pascalu 4.0 


C080 = 3; ( 80x25 Color on Color Adapter ) 
Mono = 7; (80x25 on Monochrome Adapter ) 
Font6x8 = 256; (£ Add-in for ROM font ) 
( Foreground and background color ) 
Black = (0; 
Blue =l; 
Green = 2; 
Cyan = 3; 
Red = 4; 
Magenta = 5; 
Brown = 6; 
LightGray = 7; 
( Foreground color ) 
DarkGray = 8; 
LightBlue = 9; 
LightGreen = 10; 
LightCyan = 11; 
LightRed = 12; 
LightMagenta = 13; 
Yellow = l4; 
White = ]5; 
( Add-in for blinking ) 
Blink = 128; 
var 


LastMode: word; ( Current text mode |) 

TextAttr: byte; ( Current text attribute ) 
WindMin: word; ( Window upper left coordinates ) 
WindMax: word; ( Window lower right coordinates ) 


procedure TextMode(Mode: word); 
procedure Window(xl,yl,x2,y2: byte); 
function WhereX: byte; 

function WhereY: byte; 

procedure ClrŚcr; 

procedure ClrEol; 

procedure InsLine; 

function KeyPressed : boolean; 
procedure DelLine; 

procedure TextColor(Color: byte); 
procedure TextBackground(Color: byte); 
procedure TextMode(Mode : word); 
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procedure LowVideo; 
procedure High Video; 
procedure Norm Video; 


Turbo Pascal Version 4.0 
GRAPH Unit Interface Documentation 


Copyright (c) 1987 by Borland International, Inc. 


unit Graph; 


interface 

const 
( GraphResult error return codes |) 
grOK = 0; 
grNolnitGraph = —l; 
grNotDetected = —-2 
grFileNotFound = 3 
grInvalidDriver = 4 
grNoLoadMem = —$5 
grNoŚcanMem = —6 
grNoFloodMem = —7 
grFontNotFound = —8; 
grNoFontMem = —9 
grInvalidMode =—10; 
grError = —]l; ' ( Generic error ) 
grIOerror = —12; 
grInvalidFont =—]3; 
grInvalidFontNum = —14; 


grInvalidDeviceNum = — 15; 
( Graphics drivers ) 


Detect =(;  ( Requests autodetection ) 
CGA =l; 

MCGA =2 

EGA = 3; 

EG4A64 =4, 

EGAMono = 5; 

IBM8514 = 6; ( RESERVED ) 
HercMono = 7; 

ATT400 =8; 

VGA = 9; 


PC3270 =10; 
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t Graphics modes for each driver ) 


256K on card, 2 page ) 

720x348 2 page ) 

320 x 200 palette O: 

LightGreen, LightRed, Yellow; 

1 page ) 

ATT400CI =1; 4 320x200 palette 1: 
LightCyan, LightMagenta, White; 
1 page ) 


HercMonoHi = 0; 
ATT400C0 =0, 


CGACO = (0; ( 320x200 palette O: 
LightGreen, LightRed, Yellow; 
l page ) 
CGACI = |]; (£ 320x200 palette 1: 
LightCyan, LightMagenta, White; 
l page ) 
CGAC2 = 2; £ 320x200 palette 2: 
Green, Red, Brown; 
l page ) 
CGAC3 = 3; 4 320x200 palette 3: 
Cyan, Magenta, LightGray; 
l page ) 
CGAHi =4; (640x200 I page ) 
MCGACO  =0; 4 320x200 palette 0: 
LightGreen, LightRed, Yellow; 
1 page ) 
MCGACI =; 4 320x200 pałette 1: 
LightCyan, LightMagenta, White; 
l page ) 
MCGAC2  =232; 4 320x200 palette 2: 
Green, Red, Brown; 
l page ) 
MCGAC3  =3; 4 320x200 palette 3: 
Cyan, Magenta, LightGray; 
l page ) 
MCGAMed =4; (640x200 I page |) 
MCGAHi  =5; f£ 640x480 I page ) 
EGALo =(0; (640x200 16 color 4 page | 
EGAHi =|1; 640x350 16 color 2 page |) 
EGA64Lo  =0; 4 640x200 I6 color 1 page ) 
EGA64Hi = |; ( 640x350 4 color 1 page ) 
EGAMonoHi = 3; 4 640x350 64K on card, I page; 
( 
t 
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ATT400C2 2; 


ATT400C3 3; 


ATT400Med = 4; 
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( 320x200 palette 2: 
Green, Red, Brown; 
l page ) 
( 320x200 palette 3: 
Cyan, Magenta, LightGray; 
1 page ) 
640x200 1 page ) 


t 
ATT400Hi —=$5; 4 640x400 I page ) 
VGALo =(; 4 640x200 16 color 4 page ) 
VGAMed = 1; £ 640x350 16 color 2 page ) 
VGAHi = 2; (640x480 16 color lpage ) 
PC3270Hi  =0; 4 720x350 I page ) 
IBM8514Lo =0; 4 640x480, 256 color ) 4 RESERVED ) 
IBM8514Hi =1; 4 1024x768, 256 color ) 4 RESERVED ; 
( Colors for SetPalette and SetAllPalette | 
Black = (0; 
Blue = |; 
Green = 2; 
Cyan = 3; 
Red = 4; 
Magenta = 5; 
Brown = 6; 
LightGray = 7; 
DarkGray = 8; 
Light Blue = 0; 
LightGreen = 10; 
LightCyan = 11; 
LightRed = 12; 
LightMagenta = 13; 
Yellow = |4; 
White = 15; 
( Line style and widths for Get/SetLineStyle | 
SolidLn =(0; 
DottedLn =; 
CenterLn =2; 
DashedLn = 3; 
UserBitLn = 4; 4 User-defined line style | 
NormWidth = l; 


ThickWidth = 3; 


( Set/GetTextStyle 
DefaultFont = 0; 


ł 


( 8x8 bit mapped font ; 
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TriplexFont = 1; 4 Stroked fonts ) 

SmallFont = 2 

SansSerifFont = 3; 

GothicFont  =4: 

HorizDir = O; £ Left to right ) 

VertDir = I; | Bottom to top ) 


UserCharSize = 0; 4 User-defined char size ) 


( Clipping symbols ) 
ClipOn = true; 
ClipOff = false; 


( Bar3D symbols ) 
TopOn = true, 
TopOf/ = false; 


( Fill patterns for Get/SetFillStyle ; 


EmptyFill = 0;  ( fills area in background color ) 
SolidFill = 1;  ( fills area in solid fill color ) 
LineFill =2 --- p j 


LtSlashFill = 3; 
SlashFill =4; 
BkSlashFill =$; 
LtBkSlashFill = 6; 


t 

11 fl with thick lines ) 

( 

i 
HatchFill =7, ( 

t 

t 

i 

( 

t 


/ 
/ 
N/fll with thick lines ) 
VII) 
light hatch fill ) 

heavy cross hatch fill ) 
interleaving line fill ) 
widely spaced dot fill ) 
CloseDotFill = 11; closely spaced dot fill ) 
UserFill = |12 user defined fill ) 


( BitBlt operators for Putlmage ) 


XHatckhFill =8; 
InterleaveFill = 9; 
WideDotFill = 10; 


NormalPut =0; ( MOV ) 
xorPut = |; ( XOR ) 
orPut =2; (OR) 

andPut = 3; £ AND ) 
notPut = 4, £ NOT ) 


( Horizontal and vertical justification 
for SetTextJustify ) 

leftText =0; 

Center Text = l; 

RightText = 2; 


Bottom Text = 0; 
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( CenterText = 1; already defined above ) 


TopText =2; 
const 
MaxColors = 15; 
type 
PaletteType = record 
Size  : byte; 
Colors : array[0..MaxColors] of shortint 
end; 


py 


LineSettingsType = record 
LineStyle : word; 


Pattern  : word; 
Thickness : word 
end; 
TextSettingsType = record 
Font : word; 


Direction : word; 
CharSize : word; 


Horiz : word; 
Vert : word 
end; 


( Pre-defined fill style ) 
FillSettingsType = record 
Pattern : word; 
Color  : word 
end; 


( User defined fill style ) 
FillPatternType = array[1..8] of Dyte; 
PointType = record 
x, y: integer 
end; 
ViewPortType = record 
xl, yl, x2, y2 : integer; 


Clip : boolean 
end; 
ArcCoordsType = record 
x . integer; 


xStart, yStart : integer; 
xEnd, yEnd  : integer 
end; 


««« High-level error handling *** ) 
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function GraphErrorMsg(ErrorCode : integer) : string; 
function GraphResult : integer; 
( *** Detection, initialization and crt mode routines **x | 
procedure DetectGraph (var GraphDriver, 
GraphMode : integer); 
procedure InitGraph (var GraphDriver : integer; 
var GraphMode : integer; 
PathToDriver : string); 
function RegisterBGlfont(Font : pointer) : integer; 
function RegisterBGldriver(Driver : pointer) : integer; 
procedure SetGraphBufSize(BufSize : word); 
procedure GetModeRange(GraphDriver : integer; 
var LoMode, HiMode : integer); 
procedure SetGraphMode(Mode : integer); 
function GetGraphMode : integer; 
procedure GraphDefaults; 
procedure RestoreCrtMode; 
procedure CloseGraph; 


function GetX : integer; 
function GetY : integer; 
function GetMaxX : integer; 
function GetMaxY : integer; 


( «xx Screen, viewport, page routines **x) 
procedure ClearDevice; 
procedure SetViewPort(xl. yl, x2, y2 : integer; 
Clip : boolean); 
procedure GetViewSettings(var ViewPort : ViewPortType); 
procedure ClearViewPort; 
procedure SetVisualPage(Page : word); 
procedure SetActivePage(Page : word); 


( **x* Point-oriented routines *xx ) 
procedure PutPixel (x, y : integer; Pixel : wora); 
function GetPixel (x, y : integer) : word; 


4 «xx Line-oriented routines **x ) 


procedure LineTO (x, y : integer); 

procedure LineRel (dx, dy : integer): 

procedure MoveTo (x, y : integer); 

procedure MoveRel (dx, dy : integer); 

procedure Line (xl, yl, x2, y2 : integer); 

procedure GetLineSettings (var Linelnfo : LineSettingsType), 
procedure SetLineStyle (LineStyle : word; 
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Pattern  : word; 
Thickness : word); 
( *** Polygon, fills and figures **+ ) 
procedure Rectangle (xl, yl, x2, y2 : integer); 
procedure Bar (xl, yl, x2, y2 : integer); 
procedure Bar3jD (xl, yl, x2, y2 : integer); 

Depth : word; TopFlag : boolean); 
procedure DrawPoly (NumPoints : word; var PolyPoints); 
procedure FillPoly (NumPoints : word; var PolyPoints); 
procedure GetFillSettings (var Filllnfo : FillSettings Type); 
procedure GetFillPattern (var FillPattern : FillPatternsType); 
procedure SetFillStyle (Pattern : word; Color : word); 
procedure SetFillPattern (Pattern : FillPatternType; 

Color : word); 
procedure FloodFill (x, y : integer; Border : word); 


( «xx Arc, circle, and other curves **x ) 
procedure Arc (x, y : integer; StAngle, EndAngle, 
Radius : word); 
procedure GetArcCoords(var ArcCoords : ArcCoordsType); 
procedure Circle (x, y : integer; Radius : word); 
procedure Ellipse (x, y : integer; 
StAngle, EndAngle : word; 
xRadius, yRadius : word); 
procedure GetAspectRatio (var xAsp, yAsp : word); 
procedure PieSlice (x, y : integer; StAngle, EndAngle, 
Radius : word); 


( **x* Color and palette routines *xx ) 

procedure SetBkColor (Color : word); 

procedure SetColor (Color : word); 

function GetBkColor : word; 

function GetColor : word; 

procedure SetAllPalette (var Palette : PaletteType), 
procedure SetAllPalette (ColorNum : word; Color : shortint); 
procedure GetPalette (var Palette : Palette Type), 

function GetMaxColor : word; 


( +*x Bit-image routines **» ) 
function ImageSize (xl, yl, x2, y2 : integer) : word; 
procedure Getlmage (xl, yl, x2, y2 : integer; var BitMap); 
procedure PutIlmage (x, y : integer; var BitMap; 

Op : word); 
( *«* Text routines *x» ) 
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procedure GetTextSettings (var Textlnfo : TextSettings Type); 
procedure OQutText (TextString : string); 
procedure OutTextXY (x, y : integer; TextString : string); 
procedure SetTextJustify (Hor, Vert : word); 
procedure SetTextStyle (Font, Direction : word; 

CharSize : word); 
procedure SetUserCharSize (MultX, DivX, MultY, DivY : word); 
function TextHeight (TextString : string) : word; 
function TextWidth (TextString : string) : word; 


0 JNUA WU -— 
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— Circle 186, 273 
— ClearDevice 273 
— ClearScreen 194 
— ClearViewPort 213 
— Close 87, 104 


— CloseGraphMode 274 


— ClrEol 130, 274 
— ClrScr 130, 274 
— ColorTable 185 

— CneExit 131 

— Crtlnit 131 

— DelLine 131, 275 


procedura Delay 132 


Delete 62 
DetectGraph 2175 
Dispose 113 

Draw 176 

Ellipse 277 

Eof 89, 104 

Eoln 105 
ekranowa 130 
Erase 88 

Exit 133 

FilePos 90 

FileSize 89 
FiliChar 132 
FiliPattern 188 
FillPoly 277 
FiliScreen 189 
FillShape 190 
FloodFill 278 
Forwd 194 
FreeMem 115 
GetArcCoords 278 
GetAspectRatio 278 
GetDotColor 192 
GetFillPattern 279 
GetFillSettings 280 
Getlmage 282 
GetLineSettings 282 
GetMem 114 
GetModeRange 284 
GetPalette 284 
GetPic 190 
GetTextSettings 285 
GotoXY 132, 288 
GraphBackground 180 
GraphColorMode 177 
GraphDefaults 288 
GraphMode 178 
GraphWindow 183 
Halt 133 

HiRes 178 
HiResColor 179 
HideTurtle 195 
HighVideo 290 
Home 195 
InitGraph 291 
InsLine 131, 292 
Insert 62 

Line 293 

LineRel 293 
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procedura LineTo 293 procedure SetUserCharSize 305 
— LowVideo 132, 294 — SetViewPort 305 

— Mark 114 — SetVisualPage 305 

— MaxAvail 115 — ShowTurtle 197 

— Move 133 — Sound 199 

— MoueRel 294 — specjalna 132 

— MoveTo 294 — Str 59 

— New 112 — fTextBackground 173, 306 
— NormVideo 132, 294 — TextColor 173, 306 

— NoSound 199 — TextMode 171, 307 

— NoWrap 195 — TurnLeft 197 

— QutText 295 — TurnRight 197 

— QutTextXY 295 — TurtleThere 198 

— OverDrive 159 — TurtleWindow 197 

— Palette 180 — Val 60 

— Pattern 187 — WhereX 174 

— PenDown 196 — WhereY 174 

— PenUp 196 — Window 181, 309 

— PieSlice 295 — Wrap 198 

— Plot 176 — Write 85, 101 

— PutImage 296 — Writeln 103 

— PutPic 192 program 29 

— PutPixel 296 przecięcie mnogości 79 

— Randomize 133 przypisanie 58, 68 

— Read 85, 97 — danej 117 

— Readln 100 — mnogości 81 

— Rectangle 297 — rekordu 76 

— Release 114 

" Rename 88 Relacja 41, 57 

— Reset 83, 95 . . 

— RestoreCrtMode 298 EprCZEniowanie d anej 163 
— Rewrite 84, 96 różnica mnogości 79 

— Seek 86 

— SeekEof 106 Skojarzenie parametru z argumentem 122 
— SeekEoln 107 słowo kluczowe 19, 20 

— ŚSetActivePage 298 suma mnogości 79 

— SetAllPalette 298 system CP/M 157 

— ŚSetBkColor 299 — DOS 147 


— ŚSetColor 299 
— Set(FillPattern 300 


— SetFiliStyle 300 Środowisko operacyjne 252 
— ŚetGraphBuf Size 301 

— SetGraphMode 301 Tablica Mem 69 

— ŚSetHeading 196 — MemW 69 

— SetLineStyle 302 — Port 69 

— SetPalette 302 — PortW 69 

— SetPenColor 196 — predefiniowana 69 

— SetPosition 196 — wielowymiarowa 66 

— SetTextJustify 303 terminal 92 


— SetTextStyle 304 tryb graficzny 175, 267 
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tryb tekstowy 170. 265 Unia 75 

typ bajtowy 27 usuwanie błędu 257 
— bazowy typu mnogościowego 77 

— całkowity 27, 251 


— |ogiczny 27 Wektor znakowy 67 

— łańcuchowy 26. 56, 63 włączenie zbioru 141 

— mnogościowy 27, 77 wykonanie programu 257 

— okrojony 52 wykreślenie obiektu 269 

— plikowy 81 — tekstu 268 

— porządkowy 26, 50 wyrażenie 35, 78 

— prosty 26 wyszczególnienie modułów 250 
— rekordowy 27, 71 wywołanie 121 

— rzeczywisty 26, 28, 251 — funkcji 41 


— standardowy 26, 27 
— tablicowy 27, 65 


— wskazujący 27, 111 Zakres deklaracji 33 
— wyliczeniowy 50 zasięg deklaracji 33 
— złożony 26 zbiór 81 

— znakowy 27, 63 — główny 14 


złączenie łańcuchów 57 


WNI Warszawa 1989. 

Wydanie I. Nakład 19 700+ 300 egz. 

Ark. wyd. 19,3. Ark. druk. 20,25. 
Format B5. Papier offset kl. III, 70 g. 
Podpisano do druku w lipcu 1989. 

Druk ukończono w sierpniu 1989. 
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